VBSで、日本語文字列の抽出を行いたいのですが、日本語がうまく動作しません。
もし、対処法などがあれば、教えていただければ、と思います。
プログラムとしては、あるファイルの中から、ある文字列(メールから、名前を抜き出す、など)を抽出して、
別ファイルに書き出すことをしたいのですが、
英数字(半角)では動作するのですが、日本語(全角)では動作ができません。
エンコーディングなどが問題だと思うのですが、プログラムがあまり分からないため、困っています。
良い解決法などあれば、教えていただければ、と思います・・・。
----(現在のファイル:test.vbs)-----------
Const ForReading = 1,ForWriting = 2,ForAppending = 8 '定数の指定
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
sFile = InputBox("検索するファイルのパス")
sWord = InputBox("検索する文字列")
Set oTs1 = Fs.OpenTextFile(sFile,ForReading)
Set oTs2 = Fs.CreateTextFile("result.csv",True)
oTs2.WriteLine "ファイルパス= " & sFile
oTs2.WriteLine "検索文字= " & sWord
oTs2.WriteBlankLines 1
Do Until oTs1.AtEndOfStream
sLine = oTs1.ReadLine
If InStr(sLine,sWord)<>0 Then
dim i'検索文字列
dim j'半角スペースの位置
dim Res'書き出す内容
dim n,m
i= InStr(sLine,sWord)
j = InStr(i, sLine, Chr(32))
n = j-i
Res = Mid(sLine, i, n)
oTs2.Write "Line:" & oTs1.Line - 1 & ", " & Res & vbCrLf
End If
Loop
oTs1.Close
oTs2.Close
MsgBox "書き出し完了"
---------------------------------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Excel(エクセル) セルの値をグーグルで検索するエクセルVBAについて! 2 2022/08/01 21:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel VBA】取り込んだファイ...
-
VBAで、JPG写真の撮影日時を読...
-
C++によるファイル送受信プログ...
-
【VBA】複数CSVの特定範囲を1つ...
-
vbaの構文の修正相談(xmlファ...
-
Eclipseで検索ができなくなった
-
BASP21のファイルアップロード...
-
HTMLテキストリンクでExcelファ...
-
0バイトのテキストファイル
-
サイトマップにサブドメインを...
-
ファイルの排他について
-
タイムスタンプの取得
-
C# ファイルサイズの取得(ファ...
-
MFC SDIアプリで開いているファ...
-
AVIStreamWriteの使用方法
-
[C#]FTPでの複数のファイル...
-
MusicXMLファイル作り方教えて...
-
main関数のコマンドライン引数...
-
VB6でTIFF図のプロパティを...
-
accessでクエリをExcelにエクス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Excel VBA】取り込んだファイ...
-
0バイトのテキストファイル
-
VBAで、JPG写真の撮影日時を読...
-
HTMLテキストリンクでExcelファ...
-
Eclipseで検索ができなくなった
-
VB6.0のメモリリークについて
-
main関数のコマンドライン引数...
-
2GB以上のファイルを扱う方法
-
サイトマップにサブドメインを...
-
ファイル更新日取得
-
ファイル作成日時と更新日時を...
-
エディットボックスの内容をテ...
-
【VBA】印刷マクロのループ処理...
-
<input type="file" で初期値...
-
【VBA】複数CSVの特定範囲を1つ...
-
C++によるファイル送受信プログ...
-
GetOpenFileName()について
-
VB2008 iniファイルの全セクシ...
-
ファイル内容を比較する方法
-
IMEのモードを強制的に変えるには
おすすめ情報