Вопрос № 18185: Уважаемые эксперты!!! Как мне сделать на VB чтоб при открытии уже существующего .txt файла с текстом VB через каждые 3 строки дописывал какой – либо текст, а то у меня текста много а дописывать в ручную нереально. ОЧЕНЬ ДОЛГО придется писать. Помогит...
Вопрос № 18185
Уважаемые эксперты!!! Как мне сделать на VB чтоб при открытии уже существующего .txt файла с текстом VB через каждые 3 строки дописывал какой – либо текст, а то у меня текста много а дописывать в ручную нереально. ОЧЕНЬ ДОЛГО придется писать. Помогите пожалуйстааааааа.
Должно получиться что – то вроде этого
Сыркина
Александра
Юрьевна
“Тут должна встать надпись»
Песняк
Евгений
Владимирович
«Тут опять должна встать надпись»
И т.д.
Отправлен: 12.03.2005, 21:13
Вопрос задал: Oleinik D.V (статус: Посетитель)
Всего ответов отправлено: 1
Отвечает: Licvidator
Здравствуйте, Oleinik D.V!
Добавляем на форму кнопку, вписываем код, запускаем...
Option Explicit
Private Sub Command1_Click()
Dim filename As String, strB As String, mass() As String, stringToPlace As String
Dim i As Long, n As Long
ReDim mass(0)
i = 0
stringToPlace = "ваш_текст"
filename = "C: est.txt"
Open filename For Input As #1
Do: i = i + 1: Line Input #1, strB: ReDim Preserve mass(i): mass(i) = strB: Loop While Not EOF(1)
Close #1
Kill filename
For n = 1 To i
Open filename For Append As #1
If n Mod 3 = 0 Then
Print #1, mass(n) & vbNewLine & stringToPlace
Else
Print #1, mass(n)
End If
Close #1
Next
MsgBox "Done!", vbInformation, "Test programm"
End Sub
Ответ отправил: Licvidator (статус: Профессор)
Отправлен: 13.03.2005, 01:07 Оценка за ответ: 1 Комментарий оценки: Приогромное спасибо. Я незнаю что бы я делал без вашей помощи. Еще раз спасибо.
