| |
 1 Кб. |
|
| | Ни как не могу создать такой файл :( Пробовыл как текстовый, как ворд не получается (нарушается структура документа). Помогите пожалуйста 
Вложение исправил | |
| |
| |
| |
|
|
| | не совсем понял, что должно получиться в итоге ?
plain текст, форматированный текст или ... | |
| |
| |
| |
|
|
| | \u041C\u043E\ = это коды букв как заменить буквы на коды я знаю.
Надо сделать такой как приклепленный только вставть свои коды букв | |
| |
| |
| |
|
|
| | В процедуре:
Open "C:\MyFile.txt" For Output As #1 'открываете файл
s=..... 'в переменной формируете строку
Print #1, s 'добавляете строку в файл
s=..... 'следующая строка
Print #1, s 'добавляете строку в файл
...
Close #1
|
| |
| |
| |
|
|
| |
|
|
| | так тоже не получилось :(
если открыть в блокнотом, то в оригинале это одна большая строка, а здесь получается столбик:(
программа говорит не верный формат | |
| |
| |
| |
|
|
| | если должна быть одна длинная строка, то в примере Анатолия будет только один принт
кстати, в Вашем примере тоже несколько строк | |
| |
| |
| |
|
|
| |
в Вашем примере тоже несколько строк
|
одна
гостиница Золотое Кольцо | |
| |
| |
| |
|
|
| | почему не получилось как текст?
почитайте про библиотеку FileSystemObject | |
| |
| |
| |
|
|
| | этот файл надо подсунуть другой проге, а то, что я сумел создать  она не признала | |
| |
| |
| |
|
|
| | У большинства текстовых файлов признак перевода строки - последовательность символов с кодами 13 и 10 (vbCrLf), но встечаются и такие, где только vbC или только vbLf. Последнее - ваш случай. Попробуйте так:
Dim f%
f = FreeFile: Open "C:\Файл.txt" For Binary As f
s = "Строка1" & vbLf & "Строка2" & vbLf & "Строка3..."
'Если методу передана строка, VBA выполняет преобразование Unicode->ANSI
Put f, , s
Close f
|
| |
| |
| |
| |
|
|
| | Спасибо!
дело действительно было в переводе строки. у меня заработало с (10) коды сравнивал в FAR. | |
| |
| |
| |
|
|
| | может кто знает как была получена дата S'\x07\xdf\x03\x19' в нормальном виде это 25.03.2015
25 это х19; 03 это х03; xdf это 2015 | |
| |
| |
|
|
| |
|
|
| | S'\x07\xcf\x03\x05' это 05.03.1999 | |
| |
| |
|
|
| |
|
|
| | что такое и hex? и как такое сделать в ассеsse& | |
| |
| |
| |
|
|
| | Hex - это 16-ричный код
в access есть какая-то функция, но я не помню как называется | |
| |
| |
| |
|
|
| | где поискать?
как перевести год в 16-ричный код в ручную понятно , только загвоздка не помню функцию чтоб подствить значения 0-0 ...10-А ...15-Е | |
| |
| |
| |
|
|
| | Hex - так и называется :) - перевод из Dec
http://msdn.microsoft.com/en-us/library/aa445020(VS.60).aspx
http://msdn.microsoft.com/en-us/library/aa263426(VS.60).aspx | |
| |
| |
|
|
| |
|
|
| | может есть функция перевода слов в кодировку \u0425\u0438\u0440\ | |
| |
| |
|
|
|
|
| |
|
|
| | что за программа генерит такие БД? самописка? | |
| |
| |
| |
|
|
| | типа того, только автор не известен :) | |
| |
| |
| |
|
|
| | засвети скриншот основного окна.
ты ее вскрывать уже пробовал? | |
| |
| |
| |
|
|
| | нет это не требуется, я так разберусь, с вашей помощью :) | |
| |
| |
| |
|
|
| |
Dim s1$, s2$, s3$, i&
s1 = "Хир"
For i = 1 To Len(s1)
s2 = Mid$(s1, i, 1)
s3 = s3 & Format(Hex(AscW(s2)), "\\\u0000")
Next
Debug.Print s3
|
Результат: \u0425\u0438\u0440 | |
| |
| |
