Ну, я вычленяя нужный фрагмент тупо использовал знакомые
StringGetPos
StrLen
StringTrimRight и т.п,
где, кстати тоже несколько удобнее представление всегда в виде трёх знаков.
Ничего непонял, можно это всё на примере.
]]>
File := FileOpen(FileName, "r")
Encoding := File.Encoding
file.Close()
string = 1 0
VarSetCapacity( var, StrLen(string))
StrPut(string, &var, Encoding)
Loop % StrLen(string)
str .= NumGet(var, A_Index - 1, "UChar") " "
MsgBox % str
Хотя до конца, все тонкости решения я непонимаю.
]]>особенно с дополнением из 23
Кроме усложнения обработки, что это даёт?
Loop % Length
NumLen := StrLen(Num := NumGet(buf, A_Index - 1, "UChar"))
, hex .= (NumLen = 1 ? 00 Num : NumLen = 2 ? 0 Num : Num) " "
MsgBox % hex
File := FileOpen(FileName, "r"), File.Pos := 0
File.RawRead(buf, Length := file.length)
File.Close()
Loop % Length
hex .= NumGet(buf, A_Index - 1, "UChar") " "
; Здесь делаем нужные изменения в строке десятичных байтов, как в тексте
; Т.е. изменяем переменную "hex"
RegExReplace(hex, A_Space, "", NewLength) ; Узнаём новое количество байтов по кол-ву пробелов в изменённой строке
VarSetCapacity(buf2, NewLength, 0)
Loop, parse, hex, %A_Space%
NumPut(A_LoopField, buf2, A_Index - 1, "UChar")
File := FileOpen(FileName2, "w"), File.Pos := 0
File.RawWrite(buf2, NewLength)
file.Close()
MsgBox
Из моей теории, получился такой вот смешной код, вроде даже рабочий
Спасибо! Попробую разобраться.
]]>Ну да, тоже было ощущение повтора темы. Кстати, задать вопрос и исчезнуть — не слишком красиво выглядит.
Посыпаю голову пеплом. Ничего не понял в коде, решил попробовать разобраться позже, закрутился, потом вынужден был совсем отвлечься и благополучно забыл. Извиняюсь.
Ну как же не важно? Для кода сугубая конкретика нужна. Если байты задаются и отображаются как "255 255 255", будет один код, если иначе — другой. Если перезапись идёт сразу — один код, если какие-то манипуляции (какие?) со считанным и на их основе перезапись — другой. ... Вы должны всё максимально конкретизировать, все детали?
В каком виде бы я не получил нужную строку, мне нужно привести её в формат латинских букв и цифр, потом обработать и если для записи надо, опять можно преобразовать в "255 255 255". Это можно сделать в подпрограмме которая уже практически существует, а потом вернуться в участок кода считывания/записи.
Вот сейчас вам какой пример кода хотелось бы увидеть? Допустим, это будет функция. Что и в каком виде она должна принимать, что и в каком виде возвращать? Что должна делать в случае неудачи? Максимально конкретно можете описать?
Самое удобное, получить всё в виде переменной в формате латинских букв и цифр. В случае, если самого файла нет, или строка не найдена и т.п, можно загонять в эту переменную ноль или в другую специальную, контрольную тот же ноль.
]]>
SetBatchLines -1
FileName =
FileName2 =
File := FileOpen(FileName, "r")
file.RawRead(buf, Length := file.length)
file.Close()
Loop % Length
hex .= NumGet(buf, A_Index - 1, "UChar") " "
; Здесь делаем нужные изменения в строке десятичных байтов, как в тексте
; Т.е. изменяем переменную "hex"
RegExReplace(hex, A_Space, "", NewLength) ; Узнаём новое количество байтов по кол-ву пробелов в изменённой строке
VarSetCapacity(buf2, NewLength, 0)
SetFormat, IntegerFast, H
Loop, parse, hex, %A_Space%
NumPut(A_LoopField + 0, buf2, A_Index - 1, "UChar")
file := FileOpen(FileName2, "w")
file.RawWrite(buf2, NewLength)
file.Close()
MsgBox
Тут создаётся новый изменённый файл, для перезаписи исходного файла нужно внести небольшие изменения.
]]>PS. У меня кажется дежа вю... http://forum.script-coding.com/viewtopic.php?id=8453
Ну да, тоже было ощущение повтора темы. Кстати, задать вопрос и исчезнуть — не слишком красиво выглядит.
В каком виде его считывать и каком потом вписывать - не важно. Важно получить его, обработать и при необходимости вписать нужное на его место.
Ну как же не важно? Для кода сугубая конкретика нужна. Если байты задаются и отображаются как "255 255 255", будет один код, если иначе — другой. Если перезапись идёт сразу — один код, если какие-то манипуляции (какие?) со считанным и на их основе перезапись — другой. Получить, обработать и вписать — это слишком общая формулировка. Для человека она годится. Откроет файл в хекс-редакторе, переведёт калькулятором десятичное отображение искомых байтов в шестнадцатеричное, найдёт глазами эти байты, вобьёт что нужно с клавиатуры и сохранит файл. Но программа за вас додумать и сообразить ничего не может. Вы должны всё максимально конкретизировать, все детали.
Вот сейчас вам какой пример кода хотелось бы увидеть? Допустим, это будет функция. Что и в каком виде она должна принимать, что и в каком виде возвращать? Что должна делать в случае неудачи? Максимально конкретно можете описать?
]]>