そーす 

2011年04月28日(木) 0時07分
Private Sub CommandButton1_Click()
Dim fileNo As Integer
Dim buf
Dim b As Integer
fileNo = FreeFile 'ファイル番号の取得
Open "C:\INSTALL.COB" For Input As #fileNo 'ファイルを読込モードで開く
Do Until EOF(fileNo) 'EOFになるまでループ
Line Input #fileNo, buf 'ファイルから1行読み込む
' Debug.Print buf
b = InStr(1, buf, "dll")
' Debug.Print b
If b <> 0 Then
Debug.Print buf
End If
Loop
Close #fileNo
End Sub
プロフィール
  • プロフィール画像
  • アイコン画像 ニックネーム:masyaxxx
読者になる
2011年04月
« 前の月  |  次の月 »
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
最新記事
最新コメント
Yapme!一覧
読者になる