VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2004/12/18(Sat) 12:14 |
| 投稿者 | ： 除菌ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: さらに教えてほしいよぅ |
そのテキストファイルはカンマ(,)区切りのファイルとかで、
カンマで区切られた値を変数に格納したいという事でしょうか？
でしたら下を参考にしてみてください。
C直下にtest.txtで保存
2004/12/17,123456
2004/12/18,34512
-----------------------------------------------------------------
Private Sub Command1_Click()
Dim strDate As String
Dim lngKingaku As Long
Dim intFilenum As Integer
intFilenum = FreeFile
Open "C:\test.txt" For Input As #intFilenum
Do Until EOF(intFilenum)
Input #intFilenum, strDate, lngKingaku
MsgBox "日付:" & strDate & vbCrLf & "金額:" & lngKingaku
Loop
Close #intFilenum
End Sub
--------------------------------------------------------
1回目のメッセージボックス
日付：2004/12/17
金額：123456
2回目のメッセージボックス
日付：2004/12/18
金額：34512
となります。。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）