Skif_off
|
Posted: Wed Mar 09, 2022 06:29 Post subject: |
|
|
Monarch-LFV
Возможно, есть смысл со скрипта начать? Типа
Code: | Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = FSO.OpenTextFile(filename, 1, False, -1)
Str = TextStream.Read(256)
TextStream.Close
N1 = InStr(Str, "<string>")
If IsNumeric(N1) = False Then WScript.Quit
N2 = InStr(N1, Str, "</string>")
content = Mid(Str, N1 + 8, N2 - (N1 + 7)) |
Добавлено спустя 19 минут:
Чутка оптимизировал, чтобы поиск закрывающего тега шёл не с самого начала. |
|