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月07日 17:41 発信者:t-shimmy
題名:RE(2):PB6.5: テキストファイルの呼び出し方法の続き

aokazumajinさん、こんにちは。
M.Mさんの言うように新規発言にすると前の関連がわからなくなりますよ!
dw_1.Importfile(\"C:\\pwrs\\pb6\\demodb\\ABC.txt\")戻り値が -5 ということですよね?
それでGetFileOpenNameとかFileOpenとかも正常に処理されているということであれば
FileOpenでファイルを捕まえちゃってるかもしれないので、
ImportfileのまえにFileCloseでファイルを閉じてみたらどうでしょうか?
>-------------------------------------------------------------------------------------------
><コード>

>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

><テキストファイルをデータコントロールに表示する処理>

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

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