作成者カテゴリ 
公開
シゲル
02/11/1999 12:30 PM
-- 分類を選んでください --
ノーツサーバノーツクライアントサーバOSクライアントOSネットワークプロトコル
N/AN/AN/AN/AN/A

csvファイルからの読み込みについて

下記のような、スクリプトを用いて、csvファイルからの読み込みは成功したのですが、フォ−ム作成画面中にボタンを押し、デ−タを読み込んでくるのですが、フォ−ム作成画面中に読み込んだデ−タが表示されなくて困っています。
誰かわかるかた、是非教えて下さい。


Notes オブジェクトの宣言
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument

'データ変数の宣言
Dim Filenum As Integer
Dim strFilename As String
Dim data(5) As String
Dim Cnt As Integer

'Notesオブジェクトの初期化
Set db = session.CurrentDatabase


'CSVの取り込み
Filenum = Freefile()
strFilename = "C:\Tmp\Ren.txt"

Open strFilename For Input Access Read As Filenum
If Len(strfilename) Then
Do While Not Eof(Filenum)
For Cnt = 1 To 5
Input #Filenum,data(Cnt)
Next

Set doc = db.Createdocument

doc.Form = "CSVForm"
doc.CSV1 = data(1)
doc.CSV2 = data(2)
doc.CSV3 = data(3)
doc.CSV4 = data(4)
doc.CSV5 = data(5)

Call doc.Save(False, False)
Loop

Close Filenum
Call workspace.ViewRefresh
End If


[Previous Main Document]
csvファイルからの読み込みについて (シゲル) * 現在地 *
. . スクリプトのテキストとか (Emie)
[Next Main Document]