Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Visual Basic .NET Скрытие элемента в класс https://www.cyberforum.ru/ vb-net/ thread2213761.html
я решил написать библиотеку нейронный сетей на vb.net и столкнулся с интересной мыслью скрыть элемент слоя нейронки "layer", чтобы он не вступал в конфликт с элементами похожего названия, ну короче...
Visual Basic .NET Нестабильная работа MemoryMappedFiles
Друзья, приветствую всех! :) Подскажите, пожалуйста, в чём может быть причина нестабильной работы MemoryMappedFiles? Для передачи данных между своими приложениями использую код из этого...
Visual Basic .NET В операции должен использоваться обновляемый запрос. Но он и так обновляемый https://www.cyberforum.ru/ vb-net/ thread2213567.html
Здравствуйте, у кипит мозг. "... .CommandText = "Update ..." - это обновляемый запрос? Dim myC As New OleDb.OleDbCommand Dim cn As New...
Visual Basic .NET Запись одного из повторяющихся полей Добрый день. Ломаю голову над алгоритмом. У меня есть 2 DataGrid, один я заполняю из второго. Во втором у меня хранится информация о покупателях, номере заказа и тд. т.е.: Например: Номер... https://www.cyberforum.ru/ vb-net/ thread2213560.html
Visual Basic .NET Заменить содержимое файла
Не могу найти решения. Нужно, чтобы файл каждый раз перезаписывался по-новой. По нижеприведенному коду файл дозаписывается. Подскажите пожалуйста, что изменить? Dim SaveFileDialog1 As New...
Visual Basic .NET Тест на наличие болезни (чтение с текстового файла) Доброго времени суток. Требуется разработать тест, который считывает с файла "Вопросы" - все вопросы и один за одним выводит их на форму, только после того как нажата кнопка "Да" или "Нет"... https://www.cyberforum.ru/ vb-net/ thread2213194.html
Visual Basic .NET Удалить повторяющиеся символы https://www.cyberforum.ru/ vb-net/ thread2213073.html
Вывести текстовую строку без повторяющихся символов. Подскажите пожалуйста, в чем ошибка? Выдает, что sym = a.Substring(i, 1) выходит за допустимый диапазон Public Class Form1 'Функция...
Открыть текстовый файл Notepad-ом в нужной кодировке Visual Basic .NET
Всем привет! Есть текстовый файл F:\1.txt как при нажатии на кнопку открыть его notepad ом в кодировке Encoding.GetEncoding(866)
Visual Basic .NET Как обойти ошибку копирования файлов, если usb disk не подключён? Здравствуйте, подскажите как обойти копирования файлов если usb disk не подключён, диска нет выдаёт ошибку такой-то диск не найден, есть какая то альтернатива обхода - пропуск? https://www.cyberforum.ru/ vb-net/ thread2212942.html Visual Basic .NET Перехват пакетов https://www.cyberforum.ru/ vb-net/ thread2212835.html
Всем привет. Я хочу сделать программу, которая будет перехватывать пакеты, отправляемые и принимаемые браузером, подобно тому, как это можно сделать при помощи F12>сеть. Программу будет перехватывать...
Выполнять действие, пока открыта форма Visual Basic .NET
Работаю в Windows Forms. Требуется следующее: Пока форма открыта, то программа что-то делает. Вопрос. Как это реализовать? Желательно с примером.
Visual Basic .NET Работа со строками https://www.cyberforum.ru/ vb-net/ thread2212593.html
Необходимо: В заданной строке, состоящей из слов, разделенных одним или несколькими пробелами, определите самое длинное слово нечетной длины. Коду необходимо иметь именно такую громоздкую структуру....
4207 / 3357 / 816
Регистрация: 02.02.2013
Сообщений: 3,258
Записей в блоге: 2
22.03.2018, 00:54 0

Чтение TXT (DXF) и вывод в TXT - Visual Basic .NET - Ответ 12236625

22.03.2018, 00:54. Показов 1378. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Yury Komar как решение

Решение

Попробуйте так. Думаю, что сформировать вывод сможете и сами.
Кликните здесь для просмотра всего текста
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dxf() As String = IO.File.ReadAllLines("tst.dxf", System.Text.Encoding.Default)
        Dim section As New List(Of String)
        Dim info As New List(Of pLineInfo)
        Dim bb As Boolean
        'выделяем раздел графических примитивов чертежа (ENTITIES)
        For Each s As String In dxf
            If s = "ENTITIES" Then bb = True
            If bb Then section.Add(s)
            If s = "ENDSEC" Then bb = False
        Next
        Dim inf As pLineInfo
        Dim nn As Integer
        bb = False
        For i = 0 To section.Count - 1
            If section(i).StartsWith("Стена") OrElse section(i).StartsWith("Плита") Then
                Dim ss() As String = section(i).Split("_")
                inf = New pLineInfo(CDbl(ss(1)) / 1000, CDbl(ss(2)) / 1000)
                i += 1
                nn = -1
                bb = True
            End If
            If bb Then
                If section(i) = "90" Then 'код числа вершин
                    i += 1
                    nn = section(i)
                End If
                If section(i) = "10" Then 'код X
                    i += 1
                    inf.xx.Add(CInt(section(i)) / 1000)
                End If
                If section(i) = "20" Then 'код Y
                    i += 1
                    inf.yy.Add(CInt(section(i)) / 1000)
                    nn -= 1
                End If
                If nn = 0 Then
                    info.Add(inf)
                    bb = False
                End If
            End If
        Next
        'вывод info
        '...
    End Sub
End Class
Public Class pLineInfo
    Public Property dd As Double
    Public Property hh As Double
    Public xx As List(Of Integer)
    Public yy As List(Of Integer)
    Public Sub New()
        MyBase.New()
        xx = New List(Of Integer)
        yy = New List(Of Integer)
    End Sub
    Public Sub New(ByVal d As Double, ByVal h As Double)
        Me.New()
        _dd = d
        _hh = h
    End Sub
    Public Overrides Function toString() As String
        'вывод информации по объекту в требуемом виде
        '...
    End Function
End Class

PS. Для тестирования, к сожалению, нет данных.

Вернуться к обсуждению:
Чтение TXT (DXF) и вывод в TXT Visual Basic .NET
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2018, 00:54
Готовые ответы и решения:

Чтение из файла 'New.txt', запись четных строк в '1.txt', а нечетных в '2.txt'
В общем все работает, но есть "НО", иначе бы не открывал тему. Содержимое исходного файла: 1 1 1...

Сделать ввод текстовым файлом Input.txt, а вывод output.txt
var a : longint; s : string; i, n : integer; begin readln(a); str(a, s);...

В папке К2 создайте файл t3.txt, в который перепишите вначале текст из файла t1.txt, а затем из t2.txt
Программным путем: 1. В папке С:\temp создайте папки К1 и К2. 2. В папке К1: a) создайте файл...

Создать новый файл qa.txt, который будет содержать строки с вопросами и ответами из файлов q.txt и a.txt.
В текстовом редакторе создать два текстовых файла q.txt и a.txt, которые соответственно содержат...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.03.2018, 00:54
Помогаю со студенческими работами здесь

Чтение данных с одного txt файла, запись данных во второй txt в определенную позицию
Добрый день, уважаемые форумчане! Нужна ваша помощь. Задача поставлена так: существует файл...

Разбить входной файл xanadu.txt на 2 выходных 1.txt и 2.txt. В 1- нечетные, 2- четные
Разбить входной файл xanadu.txt на 2 выходных 1.txt и 2.txt. В 1- нечетные, 2- четные. Записать...

Записать в text3.txt строки, которые есть и в text1.txt, и в text2.txt
Здравствуйте, нужно записать в text3.txt строки, которые есть и в text1.txt, и в text2.txt...

Разбить входной файл, например: xatadu.txt на 2 выходные файлы:1.txt и 2.txt , записав в 1 нечетные байты, а в 2 четные
Разбить входной файл, например: xatadu.txt на 2 выходные файлы:1.txt и 2.txt , записав в 1 нечетные...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru