2008-05-01から1ヶ月間の記事一覧
Dim CatalogMaster As InData Open "c:\hoge\hogehoge.txt" For Random As #Fno Len = Len(CatalogMaster) Do Until EOF(Fno) Get #Fno, , CatalogMaster With CatalogMaster 項目1 = Trim(.項目1) 項目2 = Trim(.項目2) 項目3 = Trim(.項目3) End With 'こ…
Dim CatalogMaster As InData Open "c:\hoge\hogehoge.txt" For Random As #Fno Len = Len(CatalogMaster) Do Until EOF(Fno) Get #Fno, , CatalogMaster With CatalogMaster 項目1 = Trim(.項目1) 項目2 = Trim(.項目2) 項目3 = Trim(.項目3) End With 'こ…
