初心者です。
テキストファイルを指定し、含まれる文字列を検索し、
結果表示したいと考えております。
色々探して、以下で作成したのですが、
うまく動いてくれません。
出来ましたら、テキストファイルの中の文字列の
一部分を指定して動作させたいと思っております。
どなたかご教示のほど宜しくお願い致します。
----------------------------------------------------
Set WSHFso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim strSearchWord
Set tmpFile = WSHFso.OpenTextFile("C:\AAA.txt")
Do Until tmpFile.AtEndOfStream
tmpLine = tmpFile.ReadLine
strSearchWord = strSearchWord & tmpLine & vbcrlf
Loop
Dim SearchWord
SearchWord = split(strSearchWord," ")
if InStr(SearchWord(ix), "test")<>0 then
WScript.Echo " testを含みます。"
else
WScript.Echo " testを含みません。"
end if
----------------------------------------------------
No.2ベストアンサー
- 回答日時:
こんにちは。
コードの細かい部分の目的としている部分は良く分からないけれども、少し直してみました。あくまでも、VBSです。元のコードは、ちょっと違うようです。
'-------------------------------------------
Set WSHFso = CreateObject("Scripting.FileSystemObject")
'Set WshShell = CreateObject("WScript.Shell") '??
Dim strSearchWord
dim i
'-------------------------------------------
Public Const FileName ="C:\AAA.txt"
Public Const sWord =""test"
'-------------------------------------------
Set tmpFile = WSHFso.OpenTextFile(FileName)
Do Until tmpFile.AtEndOfStream
tmpLine = tmpFile.ReadLine
i = i + 1
nflg= fSearchWord (tmpLine)
If nflg Then Exit Do
Loop
If nflg Then
MsgBox i & "行目に" & sWord &"を含みます。",64
Else
MsgBox sWord &"を含みませんでした。",48
End If
'-------------------------------------------
Function fSearchWord(tmpLine)
Dim flg
SearchWord = Split(tmpLine," ")
For ix = LBound(SearchWord) To UBound(SearchWord)
If Len(Trim(SearchWord(ix))) > 0 Then
If InStr(1, SearchWord(ix), sWord, 1) > 0 Then
flg = True
Exit For
End If
End If
Next
fSearchWord = flg
End Function
'-------------------------------------------
No.3
- 回答日時:
>テキストファイル内の文字列検索
検索だけなら配列に格納する必要は無いでしょう
Set WSHFso = CreateObject("Scripting.FileSystemObject")
Set tmpFile = WSHFso.OpenTextFile("G:\AAA.txt")
Do Until tmpFile.AtEndOfStream
i = i + 1
if InStr(tmpFile.ReadLine, "test")<>0 then
WScript.Echo i & "行目 testを含みます。"
Else
WScript.Echo i & "行目 testを含みません。"
End If
Loop
tmpFile.Close
配列内で処理をお望みならテキストファイル内の情報を一度に読み込んで
処理してみては
Set WSHFso = CreateObject("Scripting.FileSystemObject")
With WSHFso.OpenTextFile("G:\AAA.txt")
buf = .ReadAll '全行読込み
.Close 'ここでファイルを閉じる
End With
buf = Split(buf, vbCrLf) '改行で分割し配列を作成
For i =LBound(buf) to UBound(buf)
if InStr(buf(i), "test")<>0 then
WScript.Echo i + 1 & "行目 testを含みます。"
else
WScript.Echo i + 1 & "行目 testを含みません。"
End If
Next
Set WSHFso = Nothing
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- フリーソフト テキストファイル内を検索したい 1 2022/06/01 08:33
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBScriptで、ファイルから任意の行のみ取り出す方法について
その他(プログラミング・Web制作)
-
[VBS] テキストファイルから任意の値を抽出する
Visual Basic(VBA)
-
VBscript
Visual Basic(VBA)
-
-
4
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
5
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
6
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
7
VBSで指定行に挿入
その他(プログラミング・Web制作)
-
8
VBScriptにて、csvファイルから特定のレコードを取得したい
Visual Basic(VBA)
-
9
VBScriptでfindを使うには??
Visual Basic(VBA)
-
10
ADODB.Streamで開いたファイルに追記する
その他(プログラミング・Web制作)
-
11
ReadLineでの読み出し行を指定する
Visual Basic(VBA)
-
12
VBSから別のVBS起動するとき変数を渡したい
Visual Basic(VBA)
-
13
vbsでのアスタリスクとファイル取り込み
Visual Basic(VBA)
-
14
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
15
0バイトのテキストファイル
Visual Basic(VBA)
-
16
【vbs】ファイル名の検索と該当ファイルの削除について
その他(プログラミング・Web制作)
-
17
VBS フォルダ内にあるすべてのファイルを検索→ファイルが特定のファイルなら開く
その他(プログラミング・Web制作)
-
18
VBscriptが起動しない?
Microsoft ASP
-
19
テキストファイルから最終行の抽出
Windows Me・NT・2000
-
20
VBSの処理中一旦処理を止めて再開させたい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
初心者プログラミング
-
初心者が簡単なPowerShellスク...
-
配列の座標指定について。
-
【エクセル】 関数による電子...
-
VB.NET 2つの配列を連動して並...
-
vbsでテキストファイル内の文字...
-
エクセル、この関数の意味は?
-
ruby 1.8.7 で、多次元配列をソ...
-
excelの、ある数式内の{}の意...
-
配列の値を置換するにはどうす...
-
VB6で配列を文字列に変換する方...
-
数値を浮動小数点32bitHEXコー...
-
C言語 exitの使い方
-
フォームを開くときに、コンボ...
-
エラーの意味は? Lvalue req...
-
Variant型で宣言してるのにEmpt...
-
VBAでダブルコーテーション入り...
-
Accessで文字列のバイト数読み込み
-
Excel-vba 文字列と変数を...
-
VBAで配列のNULL判定
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelの、ある数式内の{}の意...
-
配列の値を置換するにはどうす...
-
エクセルへのデータの貼付時に...
-
初心者が簡単なPowerShellスク...
-
vbsでテキストファイル内の文字...
-
初心者プログラミング
-
VBAのWorksheetFunctionの引数...
-
エクセル、この関数の意味は?
-
COLUMN(1:1)の意味を教え...
-
VBSで特定の文字列が含まれる場...
-
○桁にある数値を取得する VB.N...
-
VBAで配列に文字列が入らない?
-
【エクセル】 関数による電子...
-
VB6で配列を文字列に変換する方...
-
数値を浮動小数点32bitHEXコー...
-
RichTextBoxの改行を認知してく...
-
VB 配列の内容をファイルに書...
-
複数ディレクトリの監視(VB.NET...
-
VB.NET 2次元配列
-
C#の問題です。 文字列型の配列...
おすすめ情報