Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код: const cMarker = "Таня" const cOldText= "Коля" const cNewText= "Вася" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oInFileStream = oFSO.OpenTextFile ("in.txt",1) vStr = oInFileStream.ReadAll oInFileStream.Close If (InStr(vStr, cMarker) > 0) Then vPos = InStrRev(vStr,cOldText) If (vPos > 0) Then vStr1 = Mid(vStr, 1, vPos - 1) vStr2 = Mid(vStr, vPos + Len(cOldText)) vStr = vStr1 & cNewText & vStr2 End If End If Set oOutFileStream = oFSO.CreateTextFile ("out.txt",true) oOutFileStream.Write vStr oOutFileStream.Close |
|