Как изменить символ(ы) в текстовом файле?

[NaJOrT]

Пишу такой код, но он работает для строк:

Код: Выделить всё

CODEPrivate Sub Command1_Click()
Dim fso, a, f, retstring, retstream
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("d:\realise.nfo")
Set a = f.OpenAsTextStream(ForReading, False)
Do While a.AtEndOfStream <> True
retstring = a.ReadLine
If retstring Like "NNN" Then
retstring = "najort"
End If
retstream = retstream & retstring & vbCrLf
Loop
a.Close
Set a = f.OpenAsTextStream(ForWriting, False)
a.Write retstream
a.Close
End Sub

Примерное содержимое файла realise.nfo:

Код: Выделить всё

---------------------------------Info---
-
-
- Name: NNN
- Date: DDD
-----------------------------------------

После исполнения вышенаписанного кода получаем:

Код: Выделить всё

---------------------------------Info---
-
-
najort
- Date: DDD
-----------------------------------------

А хотелось бы:

Код: Выделить всё

---------------------------------Info---
-
-
- Name: najort
- Date: DDD
-----------------------------------------

P.S. Заранее благодарю за ответ. Компилятор: MS Visual Basic 6.0 SP5

[tyomitch]

Код: Выделить всё

If retstring Like "NNN" Then
retstring = Replace(retstring, "NNN", "najort")
End If


[NaJOrT]

Код: Выделить всё

If retstring Like "NNN" Then
retstring = Replace(retstring, "NNN", "najort")
End If


Всё бы классно, но данный код не работает, точнее работает, но не так, как нужно, а именно:

Работает:
NNN
Получается:
najort
Не работает:Name: NNN
Получается:
Name: NNN

[NaJOrT]

Все получилось, забыл про **.

[NaJOrT]

Спасибо большое!

[NaJOrT]

Подскажите ещё маленький вопросик,
есть Text1.Text=5
Как можно в текстовый файл добавить столько количество символов, сколько в Text1.Text?

[Viper]

То есть добавить 5 символов? А каких символов? Можно использовать функцию String(number, character), где number - число символов, а character - код символа.

[NaJOrT]

Наверно это. Спасибо.