PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
19429 | 03/05/06 16:35:36 | RE(1):PB6.5: テキストファイルの呼び出し方法についての続き By t-shimmy |
19424 | 03/05/06 14:44:38 | PB6.5: テキストファイルの呼び出し方法についての続き By aokazumajin |
カテゴリ:PowerBuilderの開発環境
日付:2003年05月06日 14:44 発信者:aokazumajin
題名:PB6.5: テキストファイルの呼び出し方法についての続き
シングルラインエディトからテキストファイルを読み、データウィンドウに表示する処理を考えています。
以前にも同じ質問をして、t-motoさんとt-shimmyさんD139さんから回答頂き本当に有難うございました。
テキストファイルはタブ区切りで作成しています。
処理を色々と試したのですが、どうしても表示されません。再度教えていただけないでしょうか?
宜しくお願いします。
---------------------------------------------------------------------------------------------
<コード>
integer value,li_FileNum,result,li_Emp_Data
string dcode,dname,ls_Emp_Input
long ll_FLength
<テキストファイルを開きダイアログボックスを開く処理>
value = GetFileOpenName(\"ABC.txt\", &
+ dcode,dname, \"txt\", &
+ \"Text Files (*.TXT),*.TXT,\")
<ダイアログボックスからテキストファイルをオープンする処理>
IF value = 1 THEN
ll_FLength = FileLength(\"c:\\pwrs\\pb6\\demodb\\ABC.txt\")
li_FileNum = FileOpen(\"c:\\pwrs\\pb6\\demodb\\ABC.txt\")
end if
<テキストファイルの読み込み処理>
IF ll_FLength < 32767 THEN
FileRead(li_FileNum, ls_Emp_Input)
END IF
<テキストファイルをデータコントロールに表示する処理>
li_Emp_Data = dw_1.Importfile(\"C:\\pwrs\\pb6\\demodb\\ABC.txt\",2)
-----------------------------------------------------------------------------------
テキストファイルの内容 (ファイル名=ABC.txt)タブ区切り
部品番号 部品名
001 A
002 B
003 C
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS Sybase SQL Anywhere Client
Browser InternetExplorer5.X
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.