Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3377 / 9994

←次へ　｜　前へ→


	【9878】Re:テキストデータの読込について

NEMOTO - 07/9/28(金) 15:04 -


	引用なし

	パスワード

▼hatena さん：
ありがとうございます
下記のモジュールを参考にしていますが記述の意味がよくわからないところがあるので教えていただけないでしょうか？
Private Type 運送会社　　' ユーザー定義型を定義します。
　　運送コード As String * 8
　　運送会社　 As String * 20
　　電話番号　 As String * 12
　　改行　　　 As String * 2
End Type

Public Sub GetFixedLenText()
　　' 固定長テキストファイルをユーザー定義型変数に読み込んで、
　　' イミディエイトウィンドウに書き出します。
　　Const TXT_NAME As String = "C:\Temp\運送会社.txt"
　　Dim intFileNum As Integer
　　Dim my運送会社 As 運送会社
　　' 未使用のファイル番号を取得します。
　　intFileNum = FreeFile
　　' シーケンシャル入力モードでファイルを開きます。
　　Open TXT_NAME For Random Access Read As #intFileNum _
　　　　Len = Len(my運送会社)
　　' ファイルの終端までループを繰り返します。
　　Do Until EOF(intFileNum)
　　　　' レコードを読み込みます。
　　　　Get #intFileNum, , my運送会社
　　　　Debug.Print my運送会社.運送コード, _
　　　　　　　　　 my運送会社.運送会社, _
　　　　　　　　　 my運送会社.電話番号
　　Loop
　　Close #intFileNum　' ファイルを閉じます。
End Sub

Const TXT_NAME とはどのような命令文なのでしょうか？
intFileNum = FreeFile
　　' シーケンシャル入力モードでファイルを開きます。
　　Open TXT_NAME For Random Access Read As #intFileNum _
　　Len = Len(my運送会社)　のFor Random Access Read As #intFileNum の
部分もよくわかりません。
よろしくお願いします。

1,225 hits

▼

【9873】テキストデータの読込について NEMOTO 07/9/27(木) 16:53