初心者です。
テキストファイルを指定し、含まれる文字列を検索し、
結果表示したいと考えております。
色々探して、以下で作成したのですが、
うまく動いてくれません。
出来ましたら、テキストファイルの中の文字列の
一部分を指定して動作させたいと思っております。
どなたかご教示のほど宜しくお願い致します。
----------------------------------------------------
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】甲子園での思い出の残し方
「球場の砂を持って帰る」はもう古いと思った高校球児が、甲子園で負けた際に、思い出に残そうと思って行ったこと
-
VBScriptで、ファイルから任意の行のみ取り出す方法について
その他(プログラミング・Web制作)
-
[VBS] テキストファイルから任意の値を抽出する
Visual Basic(VBA)
-
VBSで特定の文字列が含まれる場合の処理方法
その他(プログラミング・Web制作)
-
-
4
テキストファイルから特定の文字列が入った行を取得したいです。 例えば下記のような文が記載されたテキス
Visual Basic(VBA)
-
5
VBScript(vbs)での行の取得について
その他(プログラミング・Web制作)
-
6
VBscript
Visual Basic(VBA)
-
7
ReadLineでの読み出し行を指定する
Visual Basic(VBA)
-
8
VBScriptにて、csvファイルから特定のレコードを取得したい
Visual Basic(VBA)
-
9
VBSで変数の宣言はできないのですか?
Visual Basic(VBA)
-
10
VBS フォルダ内にあるすべてのファイルを検索→ファイルが特定のファイルなら開く
その他(プログラミング・Web制作)
-
11
0バイトのテキストファイル
Visual Basic(VBA)
-
12
VBS パスに変数を入れたい
その他(プログラミング・Web制作)
-
13
VBSの処理中一旦処理を止めて再開させたい。
Visual Basic(VBA)
-
14
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
15
【vbs】ファイル名の検索と該当ファイルの削除について
その他(プログラミング・Web制作)
-
16
VBSで指定行に挿入
その他(プログラミング・Web制作)
-
17
VBScriptでCSVファイルを読み出したい
その他(プログラミング・Web制作)
-
18
【VBS】 フォルダ直下のファイル名を配列に取り込む方法
Visual Basic(VBA)
-
19
batである文字列内に特定の文字列が含まれているか確認したい
その他(プログラミング・Web制作)
-
20
VBSで、テキストファイルに対して、全体の途中に文字列を追加したい
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VB6で配列を文字列に変換する方...
-
vbsでテキストファイル内の文字...
-
○桁にある数値を取得する VB.N...
-
配列の値を置換するにはどうす...
-
excelの、ある数式内の{}の意...
-
COLUMN(1:1)の意味を教え...
-
ruby 1.8.7 で、多次元配列をソ...
-
エクセルへのデータの貼付時に...
-
【エクセル】 関数による電子...
-
RichTextBoxの改行を認知してく...
-
VBAで配列に文字列が入らない?
-
エクセル、この関数の意味は?
-
数値を浮動小数点32bitHEXコー...
-
Property Get での配列の...
-
VBAのWorksheetFunctionの引数...
-
ruby 配列の中の文字列を全部数...
-
Excel-vba 文字列と変数を...
-
C言語 exitの使い方
-
VBAでダブルコーテーション入り...
-
VisualStudio2022でC言語プログ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelの、ある数式内の{}の意...
-
vbsでテキストファイル内の文字...
-
エクセルへのデータの貼付時に...
-
VBAのWorksheetFunctionの引数...
-
配列の値を置換するにはどうす...
-
VB6で配列を文字列に変換する方...
-
RichTextBoxの改行を認知してく...
-
○桁にある数値を取得する VB.N...
-
ファイルの特定行を取り出したい.
-
COLUMN(1:1)の意味を教え...
-
【エクセル】 関数による電子...
-
VB.NET 2次元配列
-
VBSで特定の文字列が含まれる場...
-
数値を浮動小数点32bitHEXコー...
-
エクセル、この関数の意味は?
-
VB.NET 2つの配列を連動して並...
-
copyRecordsetの数値16桁以上に...
-
VBAで配列に文字列が入らない?
-
in_addrからchar型の文字列の変換
-
初心者が簡単なPowerShellスク...
おすすめ情報