Обрезать строку взятую из файла - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д