Обрезать строку взятую из файла - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день! Имеется задача. Есть файл который содержит много строк. Строки вида: 1,3,54,5,2123,235235235,444,4,5 1,3,4,5,3,1,2,3,5,3123123 и т.д. Требуется считать из файла строку, разбить ее по запятым на переменные. Затем значение этих переменных вывести в другой файл и тоже самое проделать с другими строками это файла, пока он не закончится. Спасибо.

Решение задачи: «Обрезать строку взятую из файла»

textual
Листинг программы
Dim fso, fs1, fs2, f1
 
Private Sub Command1_Click()
Dim mas$()
 
'-----чтение файла---------------------
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set fs1 = fso.GetFile("in.txt")
 
If fs1 = Empty Then
    'нету - че делать
    Call MsgBox("Нет файла настроек в этой папке", vbYes, "ВНИМАНИЕ")
    End
End If
 
Set f1 = fs1.OpenAsTextStream(1)
Set fs2 = fso.CreateTextFile("out.txt", True)
 
i = 0
st = ""
Do While Not f1.AtEndOfStream 'цикл по всем строкам
    st = f1.ReadLine
    i = i + 1
    For i = 0 To UBound(st)
        mas = Split(st, ",")
        For j = 0 To UBound(mas)
            fs2.Write (mas(j) & vbCrLf)
        Next
    Next
Loop 'цикл по всем строкам
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.727 из 5
Похожие ответы