ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / FileRead в PB10.5
11 сообщений из 11, страница 1 из 1
FileRead в PB10.5
    #35498617
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
По непонятной причине FileRead в PB6.5 и в PB10.5 получает разные строки. Вот пример строки (иероглифы - это досовские символы):
Код: plaintext
1.
 0000003232875000002190801058362336000000000             ƒ…ƒ           ‡Ž               ˜ š’‚ ‰˜™š Œ‰™   000024          Œ‰Ž˜‹ 00000 † 70171119630000000001032002 Œ           ’ƒŽ 11073700006000000000000000040001200431412000719000000000000000000500000000000103200200349143 š…Žƒ—šŽ „Ž‰‡Œ š…‹˜’Ž Œ€”˜                     „”‰‡  2250  .ƒ.š 100000000000000100000000031024000000000000000000200806                      110320020800000000000000000000022032034000000000000000000000000000000000000000000000000000000000000300000000000000000000000000000311700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000        0000000095550000000000000000000000000000000000000003595110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000              00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 …™˜”„ ‰…„ Œ€”˜Œ ‡
Вот скрипт, который стоит на кнопке:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
STRING ls_string
string spathname, sfile
integer li_file_num, li_len

if GetFileOpenName ("MMM", spathname, sfile) =  0  then return

li_file_num = fileopen(spathname)
FileRead (li_file_num , ls_string )

li_len = Len(ls_string)

В 6.5 li_len равно 1092 (так и должно быть). В 10.5: 547.
Если использовать , LenA(ls_string) то результат: -1
Кто-нибудь сталкивался с подобным? Где искать-копать?
...
Рейтинг: 0 / 0
21.08.2008, 11:26
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35498781
Dim2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dim2000
Участник
Riska пишет:

> По непонятной причине FileRead в PB6.5 и в PB10.5

Когда уже до сознания дойдёт, что 6.5 был ANSI, а 10+ - Unicode ;)?
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.08.2008, 12:15
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35499024
VanoR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VanoR
Участник
в объявлении функции исправить
Код: plaintext
alias for "GetFileOpenName"
на
Код: plaintext
alias for "GetFileOpenName;Ansi"
ну или как там она у вас объявлена
...
Рейтинг: 0 / 0
21.08.2008, 13:15
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35499078
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
Dim2000
Когда уже до сознания дойдёт, что 6.5 был ANSI, а 10+ - Unicode ;)?
Posted via ActualForum NNTP Server 1.4

И что из этого следует?
Имеется текстовый файл со строкой 1092 символа. В этой строке куча каких-то данных. Известно, например, что с 501ой по 530ый символ - это, например, фамилия человека. Как мне получить это значение?

ну или как там она у вас объявлена
GetFileOpenName - функция РВ. Она никак не объявлена.
...
Рейтинг: 0 / 0
21.08.2008, 13:29
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35499263
VanoR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VanoR
Участник
ну тогда может попробывать
Код: plaintext
1.
2.
ls_string = string(fromAnsi(ls_string))

li_len = Len(ls_string)
...
Рейтинг: 0 / 0
21.08.2008, 14:13
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35499318
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
VanoRну тогда может попробывать
Код: plaintext
1.
2.
ls_string = string(fromAnsi(ls_string))

li_len = Len(ls_string)

Не помогло. Ни FromAnsi, ни FromUnicode.
...
Рейтинг: 0 / 0
21.08.2008, 14:23
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35499350
VanoR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VanoR
Участник
Из хелпа
If the file is an ANSI or UTF-8 file and is read into a string, FileRead converts the text to Unicode before saving it in the string variable. No conversion is needed for UTF-16 files. For Unicode files, the BOM is not written to the string.
If the file is read into a blob, FileRead saves the contents of the file with no conversion. For Unicode files, the BOM is not written to the blob in text mode, but it is written to the blob in stream mode.
в Вашем примере FileRead считывает данные в переменную типа string ... и соответственно конвертит ее в Unicode.
попробуйте считать в блоб и дальше уже обработать функциями toAnsi или toUnicode, а может и вообще не надо будет обрабатывать, а просто в String конвертнуть

и сам файл у Вас в какой кодировке данные хранит? если в Unicode, то проблем вообще не должно быть
...
Рейтинг: 0 / 0
21.08.2008, 14:30
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35499428
Dmitry..
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry..
Гость
из хелпа

FileOpen ( filename {, filemode {, fileaccess {, filelock {, writemode { encoding }}}}} )

encoding
* EncodingANSI! (default)
* EncodingUTF8!
* EncodingUTF16LE!
* EncodingUTF16BE!

правда написано что это только для записи, но они врут (по моему)
...
Рейтинг: 0 / 0
21.08.2008, 14:49
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35499446
Фотография Riska
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Riska
Участник
VanoRИз хелпа
в Вашем примере FileRead считывает данные в переменную типа string ... и соответственно конвертит ее в Unicode.
попробуйте считать в блоб и дальше уже обработать функциями toAnsi или toUnicode, а может и вообще не надо будет обрабатывать, а просто в String конвертнуть

и сам файл у Вас в какой кодировке данные хранит? если в Unicode, то проблем вообще не должно быть
Так и пробовал - конвертнуть из блоба в стринг. По другому эти функции (toAnsi или toUnicode) и не работают.
Текстовый файл не юникодовский.
...
Рейтинг: 0 / 0
21.08.2008, 14:53
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35499662
VanoR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VanoR
Участник
ну может еще проблема в DOS-овской кодировке...
может перекодировать ее с помощью CharToOemA
...
Рейтинг: 0 / 0
21.08.2008, 15:43
| Ответить | Цитировать | Написать  
FileRead в PB10.5
    #35500538
AIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIS
Участник
авторRiska
Во-первых, от GetFileOpenName это не как не зависит.
Все дело в FileOpen и FileRead. Надо правильно их вызвать.
У меня когда-то было на подобие. Читало только начальный кусок, а дальше пусто.
Поигрался с параметрами и вместо FileRead взял FileReadEx, всё и получилось.
...
Рейтинг: 0 / 0
21.08.2008, 23:03
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / FileRead в PB10.5
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=15&tid=1336556]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 78ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 239ms
total:  413ms
созд. / загр.: 413ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]