PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
20384 | 03/10/07 10:32:15 | RE(6):PB6.5: テキストファイルの呼び出し方法の続き By aokazumajin |
19450 | 03/05/08 13:45:47 | RE(5):PB6.5: テキストファイルの呼び出し方法の続き By M.M |
19444 | 03/05/08 09:25:40 | RE(4):PB6.5: テキストファイルの呼び出し方法の続き By aokazumajin |
19443 | 03/05/08 09:14:43 | RE(3):PB6.5: テキストファイルの呼び出し方法の続き By aokazumajin |
19440 | 03/05/07 17:41:02 | RE(2):PB6.5: テキストファイルの呼び出し方法の続き By t-shimmy |
19439 | 03/05/07 17:23:02 | RE(1):PB6.5: テキストファイルの呼び出し方法の続き By M.M |
19435 | 03/05/07 15:47:48 | PB6.5: テキストファイルの呼び出し方法の続き By aokazumajin |
カテゴリ:スクリプトの記述
日付:2003年05月08日 09:25 発信者:aokazumajin
題名:RE(4):PB6.5: テキストファイルの呼び出し方法の続き
t-shimmyさん、おはようございます。
>dw_1.Importfile(\"C:\\pwrs\\pb6\\demodb\\ABC.txt\")戻り値が -5 ということですよね?
>それでGetFileOpenNameとかFileOpenとかも正常に処理されているということであれば
>FileOpenでファイルを捕まえちゃってるかもしれないので、
>ImportfileのまえにFileCloseでファイルを閉じてみたらどうでしょうか?
>
>t-shimmyさん回答有難うございました。
>FileCloseを行いました。importfileopenの戻り値は5に変わったのですが、データが表示されませんでした。
>
>>-------------------------------------------------------------------------------------------
><コード>
>
>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
>
>FileClose(li_FileNum)
>
><テキストファイルをデータコントロールに表示する処理>
>
>dw_1.Importfile(\"C:\\pwrs\\pb6\\demodb\\ABC.txt\")
>
>-----------------------------------------------------------------------------------
>
>テキストファイルの内容 (ファイル名=ABC.txt)タブ区切り
>
>001 A
>002 B
>003 C
>
>
>
>
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS Sybase SQL Anywhere Client
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.