VB ファイルを読む
const IN_FILE_NAME as String="c:test.txt" Dim fn As Integer Dim line As String fn = FreeFile Open IN_FILE_NAME For Input As #fn Do While Not EOF(fn) Line Input #fn, line Debug.Print line Loop Close #fn
const IN_FILE_NAME as String="c:test.txt" Dim fn As Integer Dim line As String fn = FreeFile Open IN_FILE_NAME For Input As #fn Do While Not EOF(fn) Line Input #fn, line Debug.Print line Loop Close #fn
YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto
Copyright© 矢木 浩人 All Rights Reserved.