VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/11/11(Fri) 19:32 |
| 投稿者 | ： book |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： テキストの読み込み |
Dim temp As String
Dim myDate As String
Dim myFileName As String
myFileName = "d:\test１.txt"
Open myFileName For Input As #1
Do Until EOF(1)
Line Input #1, temp
myDate = myDate & temp & vbCrLf
Loop
Close #1
Text2.Text = myDate
仮に今、test１.txtには１０行書かれていたとします。
しかし最終的に、Text2.Textは１１行書かれたことになります。
ここで、質問です。
Text2.Textにぴったり１０行読み込ませるにはどうしたらよいですか？
私としては、if文で最後は改行しない、
または、無理やり１１行目を削除するコードを考えているのですが力不足で表現できません。
誰かアドバイスしてください。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）