テキストボックスから文字列を一行ずつ読み込むには?

解決


てきすと  2004-12-02 02:32:20  No: 117934

テキストボックスから一行ずつ文字列を読み込みたいのですが、
テキストファイルからなら、
dim str as string
Open "テキストファイル名" For Input As #1
 Do
 Input #1, str  'テキストファイルから一行
 
 Loop while EOF(1)=False
Close
みたいな感じでできたのですが、この場合のテキストファイルではなく、Text1.textやstr2などから一行ずつ読み出したいのですが。どうすればよいのでしょうか。
一行ずつ処理をしたいので、一度にまとめて読み込んでは意味がありません。
よろしくお願いします。
環境はvb6です。


nanashi  2004-12-02 03:03:59  No: 117935

APIのSendMessageでEM_GETLINEを使えば取れます。


ねろ  2004-12-02 03:04:26  No: 117936

テキストボックスから読み込むとは言わないかな。
取得するとか一行ずつ切り出すとか。。。。
Dim b() As String
Dim n As Integer
Text1.Text = "aaa" + vbCrLf + "bbb" + vbCrLf + "cccc"
b = Split(Text1.Text, vbCrLf)
For n = 0 To UBound(b)
    Debug.Print b(n)  '一行ずつ処理
Next
こんな感じです。


てきすと  2004-12-02 10:33:21  No: 117937

解決しました。
大変参考になりました。
ありがとうございます。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加