PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
19433 03/05/07 15:14:16 RE(1):PB6.5: テキストファイルの呼び出し方法の続き By M.M
19432 03/05/07 14:19:04 PB6.5: テキストファイルの呼び出し方法の続き By aokazumajin

カテゴリ:PowerBuilderの開発環境
日付:2003年05月07日 14:19 発信者:aokazumajin
題名:PB6.5: テキストファイルの呼び出し方法の続き

シングルラインエディトからテキストファイルを読み、データウィンドウに表示する処理を考えています。
t-shimmyさん回答頂き有難うございます。
戻り値の件ですが、GetFileOpenNameのvalueは1(正常)、 FileOpenのli_FileNumは1(正常)、 
FileReadの ls_Emp_Inputはテキストファイルの1行目を読み込んでいます。最後のli_Emp_Dataの戻り値は
-5(異常)が入っています。タイトル行の2行を削除するのは、下2行のコードでしょうか?

value = GetFileOpenName(\"ABC.txt\", &
+ dcode,dname, \"txt\", &


処理を色々と試したのですが、どうしても表示されません。再度教えていただけないでしょうか?
宜しくお願いします。

---------------------------------------------------------------------------------------------
<コード>

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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.