Удаление части строки - VB
Формулировка задачи:
Здравствуйте!
Есть текстовые файлы с содержанием вида:
Иванов|1234/4587|01.01.2001
Петров|9050/4587|01.01.2001
Таких файлов куча.
Можно ли удалить скриптом (или ещё как-то) цифры слева от слэша (/) и до вертикально черты (|) ? И слэш (/) тоже надо удалять.
Чтобы получилось вот так:
Иванов|4587|01.01.2001
Петров|4587|01.01.2001
Заранее спасибо.
Есть текстовые файлы с содержанием вида:
Иванов|1234/4587|01.01.2001
Петров|9050/4587|01.01.2001
Таких файлов куча.
Можно ли удалить скриптом (или ещё как-то) цифры слева от слэша (/) и до вертикально черты (|) ? И слэш (/) тоже надо удалять.
Чтобы получилось вот так:
Иванов|4587|01.01.2001
Петров|4587|01.01.2001
Заранее спасибо.
Решение задачи: «Удаление части строки»
textual
Листинг программы
Dim Path As String, FileName As String, Row As String, i1 As Integer, i2 As Integer
Path = "c:\"
FileName = Dir(Path + "*.txt")
While FileName <> ""
Open Path + FileName For Input As #1
Open Path + Left$(FileName, Len(FileName) - 4) + "_out.txt" For Output As #2
Do Until EOF(1)
Input #1, Row
i2 = InStr(1, Row, "/")
While i2 > 0
i1 = InStrRev(Row, "|", i2)
Row = Left$(Row, i1) + Mid$(Row, i2 + 1)
i2 = InStr(i1, Row, "/")
Wend
Print #2, Row
Loop
Close #1
Close #2
FileName = Dir
Wend