Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для gora

Ушёл из жизни


Сообщения: 6021
Благодарности: 3491

Профиль | Отправить PM | Цитировать


Цитата ASIDS:
BAT Либо что-то с заменой строк в файле »
Попробуйте vbs:
Код: Выделить весь код
' файл скрипта в кодировке UTF-16
Set FSO = CreateObject("Scripting.FileSystemObject")
' исходный файл в кодировке UTF-16
F = "e:\Temp\test.txt"
' получаемый файл в кодировке UTF-16
F2 = "e:\Temp\test2.txt"
Dim dict(4,1)
' словарь исходных фраз
dict(0,0) = "3초 마다"
dict(1,0) = "감소"
dict(2,0) = "이동 불가"
dict(3,0) = "모든 행동 불가"
dict(4,0) = "이동 속도"
' словарь переведенных фраз
dict(0,1) = "Every 3Sec"
dict(1,1) = "Decrease"
dict(2,1) = "Cannot Move"
dict(3,1) = "Cannot perform a action"
dict(4,1) = "Move Speed"

Set rd_file = FSO.OpenTextFile(F, 1, , -1)
Buffer = rd_file.ReadAll
rd_file.Close
For i = 0 To UBound(dict, 1)
	Buffer = Replace(Buffer, dict(i,0), dict(i,1))
Next
Set wr_file = FSO.OpenTextFile(F2, 2, True, -1)
wr_file.Write Buffer
wr_file.Close
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:49, 17-09-2012 | #2