tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトル読み込み
記事No12062
投稿日: 2008/04/20(Sun) 21:59
投稿者よぃ
ファイル操作関係のところで、”行ごと読み込みのコマンドボタンに記入”
などを見て、試してみたんですが、できなったところがあるので、
教えてください。

今やりたいことは、Text1に書かれている
”ABCDEFG123456”
というところから、12を読み取りたいのです。
そして、X=12とおこうと思ってます。

とりあえず1行読み込めれば、Mid関数を使えばいいかなという感じです。

なかなかうまくいきません。
ご存じの方がいらっしゃいましたら教えてください。

[ツリー表示へ]
タイトルRe: 読み込み
記事No12064
投稿日: 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

# 投稿の都度ハンドルネームを変更するなら、都度、環境や自己紹介等をするように。
(当サイトをご利用になるなら、初めにお読み下さいを読んでおいて下さい)

[ツリー表示へ]
タイトルRe^2: 読み込み
記事No12067
投稿日: 2008/04/21(Mon) 08:51
投稿者よぃ
花ちゃんさんありがとうございました。
無事できました。
>
> >
> # 投稿の都度ハンドルネームを変更するなら、都度、環境や自己紹介等をするように。
> (当サイトをご利用になるなら、初めにお読み下さいを読んでおいて下さい)

すみません。一個のパソコンを複数で使っていて
その都度変えてました。。。
ややこしいので、今度から1台にひとつにします。
ごめんなさい。
これからもよろしくお願いします。

[ツリー表示へ]