Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10198 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【23256】テキストファイルからの読み込み たかし 05/3/17(木) 14:24 質問[未読]
【23258】Re:テキストファイルからの読み込み Jaka 05/3/17(木) 16:04 発言[未読]
【23259】Re:テキストファイルからの読み込み たかし 05/3/17(木) 16:25 質問[未読]
【23260】Re:テキストファイルからの読み込み Jaka 05/3/17(木) 16:51 回答[未読]
【23263】Re:テキストファイルからの読み込み たかし 05/3/17(木) 17:45 質問[未読]
【23278】Re:テキストファイルからの読み込み Jaka 05/3/18(金) 9:17 回答[未読]
【23256】テキストファイルからの読み込み
質問  たかし E-MAIL  - 05/3/17(木) 14:24 -
引用なし
パスワード
   いつもお世話になっています。たかしです。
今回は、任意のテキストファイルを選択でき、読み込んだファイルの
特定文字列の次に書かれている文字列をユーザーフォーム上のテキストボックス
に書き出したいのですが、いい方法がありますか？

'-------- ログファイル選択 --------
　　fp = Application.GetOpenFilename(MultiSelect:=True, _
　　　　　　Title:="[MainMode] ログファイルを選択して下さい")
　　　　If Not IsArray(fp) Then
　　　　　　MsgBox ("処理を中止します")
　　　　　　Exit Sub
　　　　End If
で、テキストファイルの選択は出来たのですが、特定文字の次の文字を読み出す方法が
分かりません。

テキストファイルの内容は、

AAA:='111'
BBB:='222'
CCC:='333'

となっており、Textbox1に111　Textbox2に222　Textbox3に333
を表示させるようにしたいのですが、何かいい方法があれば教えて下さい。
宜しくお願い致します。
【23258】Re:テキストファイルからの読み込み
発言  Jaka  - 05/3/17(木) 16:04 -
引用なし
パスワード
   こんにちは。

>何かいい方法があれば教えて下さい。
よく解らないけど

手順として、

AAA:='111'　を
　↓
AAA:='111　に加工して、↓こんな具合。

Textbox1 = mid("AAA:='111",instr(1,"AAA:='111","'")+1)
【23259】Re:テキストファイルからの読み込み
質問  たかし E-MAIL  - 05/3/17(木) 16:25 -
引用なし
パスワード
   ▼Jaka さん：
ありがとう御座います。
しかし、同じ形式のテキストファイルが複数あり、
それぞれ、AAA:='***'の形は変わらないのですが、
***は全て異なる値が入っています。
さらに、1つのテキストファイルの中に、AAA:=で記された物は1つしかないので
AAA:='を検索し、次の'までの文字を取出すような物は作れないでしょうか？
宜しくお願い致します。
【23260】Re:テキストファイルからの読み込み
回答  Jaka  - 05/3/17(木) 16:51 -
引用なし
パスワード
   >▼たかし さん：
>次の'までの文字を取出すような物は作れないでしょうか？

変数に CCC:='333' のたぐいが入っているとして確認してください。
右端に残った ' は適当に取り除いてください。

Msgbox mid(変数,instr(1,変数,"'")+1)
【23263】Re:テキストファイルからの読み込み
質問  たかし E-MAIL  - 05/3/17(木) 17:45 -
引用なし
パスワード
   ▼Jaka さん：
Sub a()
　　Dim 変数 As String
　　変数 = "CCC:='333'"
　　MsgBox Mid(変数, InStr(1, 変数, "'") + 1)
End Sub

として、Msgboxで 333' が表示されました。
ありがとう御座います。

変数をテキストファイルから取得するにはどうすればいいでしょうか？
【23278】Re:テキストファイルからの読み込み
回答  Jaka  - 05/3/18(金) 9:17 -
引用なし
パスワード
   ▼たかし さん：
>変数をテキストファイルから取得するにはどうすればいいでしょうか？

この辺とか、
[#23117]

他、テキストファイルとかCSVファイルとかで検索してみてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10198 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free