PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
1962 98/06/19 11:44:50 RE:PB5: *.TXT 以外のファイルをImportしたい。 By てとらぽっと
1960 98/06/19 10:46:08 PB5: *.TXT 以外のファイルをImportしたい。 By Mitsuru

カテゴリ:旧電子会議室
日付:1998年06月19日 10:46 発信者:Mitsuru
題名:PB5: *.TXT 以外のファイルをImportしたい。

他のアプリケーションとの関係上、DBから取得したファイルを*.dat という形式で
ローカルにsaveしています。

ところが、そのファイルをImportFileで読もうとすると、*.TXTという名前でないので
読み込みができません(サフィックスのみを*.txtに変更すると読めます)

またとある本にかかれいた、ImportFunctionのシュミレート関数を作って使用してみましたが、
今度はすべてのデータがタブを含めて1カラム目にはいってしまいます。
(コーディングを見ればあきらかなんですが。。。)

なにか良い解決策がありましたらお教えください。

(まだまだ使い出したばかりなのでよく分からないのよろしくお願いいたします。)

ちなみに、コーディングしたシュミレート関数は以下のようなものです。


F_ImportFile(DataWindow dwName,String sSource)

SetPointer(HourGlass!)
Integer iFNumSource
iFNumSource = FileOpen(sSource, LineMode!, Read!, Shared!)
if iFNumSource = -1 then
return -10
else
string sBuffer
Integer iSourceRet, iCounter = 1
Do While iSourceRet <> -100
iSourceRet = FileRead(iFNumSource, SBuffer)
if iSourceRet = -1 then
FileClose(iFNumSource)
return -12
else
dwName.InsertRow(0)
dwName.SetItem(iCounter, 1, sBuffer)
end if
iCounter = iCounter + 1
Loop
iSourceRet = FileClose(iFNumSource)
if iSourceRet = -1 then 
return -14
end if
return 1
end if

付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS (記載なし)
DBMS (記載なし)
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)

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