| |
▼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 の
部分もよくわかりません。
よろしくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
