Как убрать заданное количество символов на начале каждой строки [Версия для КПК]

KooDI

03-03-2013, 14:31

Доброго времени суток всем
Как можно сделать так чтоб убрать заданное количество символов на начале каждой строки
Пример
Было
Иван12345
Иван6789
Вася8888
Вася7777

Стало
12345
6789
8888
7777
В данном случае это 4 символа

Iska

03-03-2013, 18:16

Пойдём по накатанной…

Берём тот же (http://forum.oszone.net/post-2102515.html#post2102515) код, выкидываем оттуда регулярные выражения (их, в принципе, можно было и для прошлой задачи (http://forum.oszone.net/post-2103083.html#post2103083) выбросить, и пользовать «If InStr(strLine, "Саша") > 0 Then …», да я не стал), и делаем примерно такое:
Option Explicit

Dim strSourceFile
Dim objFSO
Dim objTS

Dim strLine

If WScript.Arguments.Count = 1 Then
strSourceFile = WScript.Arguments.Item(0)

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
Set objTS = objFSO.CreateTextFile(strSourceFile & ".export.txt", True)

With objFSO.OpenTextFile(strSourceFile)
Do Until .AtEndOfStream
strLine = .ReadLine()

objTS.WriteLine Mid(strLine, 5)
Loop

.Close
End With

objTS.Close

Set objTS = Nothing
Else
WScript.Echo "Source file [" & strSourceFile & "] not found"
End If

Set objFSO = Nothing
Else
WScript.Echo "Usage: " & WScript.ScriptName & " <Source file>"
End If

WScript.Quit