PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 23666 | 10/03/24 16:11:22 | RE(4):PB7.0: Unicodeで出力したLDIFファイルのASCII変換 By GREENS |
| 23656 | 10/02/16 20:40:56 | RE(3):PB7.0: Unicodeで出力したLDIFファイルのASCII変換 By Pos |
| 23655 | 10/02/05 09:04:03 | RE(2):PB7.0: Unicodeで出力したLDIFファイルのASCII変換 By GREENS |
| 23652 | 10/02/04 14:09:45 | RE(1):PB7.0: Unicodeで出力したLDIFファイルのASCII変換 By Pos |
| 23650 | 10/01/29 10:44:24 | PB7.0: Unicodeで出力したLDIFファイルのASCII変換 By GREENS |
カテゴリ：スクリプトの記述
日付：2010年02月16日 20:40 発信者：Pos
題名：RE(3):PB7.0: Unicodeで出力したLDIFファイルのASCII変換
GREENSさん、こんばんは。
入力した情報を一度Stringに変換し、例1000文字単位でFromUnicode変換してみてはどうでしょうか
//ファイル読込
long ll_lenw,ll_cnt
string ls_text,ls_work
blob lbb_b_all
FOR ll_i = 1 to ll_loops
FileRead(li_FileNum, lbb_b)
lbb_b_all += lbb_b
NEXT
ls_text=string(lbb_b_all) //入力した情報を一度Stringに変換
ll_pos=1
ll_moji_cnt=1000
ll_lenw=Lenw(ls_text)
do while ll_lenw>0
ls_work = Midw(ll_pos,ll_moji_cnt)
ll_pos += ll_moji_cnt
ll_lenw -= ll_moji_cnt
ls_readtext += FromUnicode(blob(ls_work))
loop
//ls_readtextが32K以上の場合は分割FileWriteを行います。
for loop=1 to 分割数
・
・
FileWrite(li_FileNum2, ls_readtext_XX)
・
・
next
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows XP
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.