Есть текстовый файл, первый символ каждой строки записать в другой текстовый файл

@Парабеллум · Регистрация: 10.06.2012

Есть текстовый файл, первый символ каждой строки записать в другой текстовый файл

помогите в написании такой программы

SoftIce · 27.03.2015, 22:16

В папке с проектом создайте файл 1.txt с Вашим текстом

Visual Basic

Option Explicit
 
Private Sub Command1_Click()
     Dim s As String
     Open App.Path & "\1.txt" For Input As #1
      Open App.Path & "\2.txt" For Output As #2
          Do Until EOF(1)
             Line Input #1, s
             Print #2, Mid(s, 1, 1)
          Loop
      Close #2
     Close #1
End Sub

@Парабеллум 0 / 0 / 0 Регистрация: 10.06.2012 Сообщений: 57
		1
	Есть текстовый файл, первый символ каждой строки записать в другой текстовый файл 27.03.2015, 22:06. Показов 1443. Ответов 1 Метки нет (Все метки) Есть текстовый файл, первый символ каждой строки записать в другой текстовый файл помогите в написании такой программы __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Есть текстовый файл, первый символ каждой строки записать в другой текстовый файл

Решение