タイトル : Re: 読み込み 投稿日 : 2008/04/20(Sun) 23:25 投稿者 : 花ちゃん
> 今やりたいことは、Text1に書かれている > ”ABCDEFG123456” > というところから、12を読み取りたいのです。 > そして、X=12とおこうと思ってます。 > > とりあえず1行読み込めれば、Mid関数を使えばいいかなという感じです。 > Debug.Print Mid$(Text1.Text, 8, 2) 行毎に分割したいなら http://hanatyan.sakura.ne.jp/vbhlp/vb6kansu.htm Split関数の使用例 参照 Private Sub Form_Load() Text1.Text = "ABCDEFG123456" & vbCrLf & "AB AB 34 56 10 45 AB" & vbCrLf & _ "FEFE60E004FD FEFEE0600401FD" End Sub Private Sub Command1_Click() Dim AddDat As Variant AddDat = Split(Text1.Text, vbCrLf) Debug.Print Mid$(AddDat(0), 8, 2) End Sub # 投稿の都度ハンドルネームを変更するなら、都度、環境や自己紹介等をするように。 (当サイトをご利用になるなら、初めにお読み下さいを読んでおいて下さい) |