![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
WindowsXPのCACLSコマンドの出力結果(テキストにリダイレクト)に改行や復帰が入っていて、空行の削除をしたいのです。
下記のプログラムを作ったのですが、復帰コードが
入っている箇所がとれないのです。どなたかご教授お願い致します。。。
Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetFolder("C:\WORK")
Set regEx1 = New RegExp
srhStr1 = "^ *$"
regEx1.Pattern = srhStr1
regEx1.Global = True
regEx1.IgnoreCase = True
Set TextFile = fso.OpenTextFile("cacls結果.txt")
Do Until TextFile.AtEndOfStream
tmpLine = TextFile.ReadLine
If regEx1.Test(tmpLine)
Then
else
srhLine = srhLine & tmpLine & vbNewLine
End If
Loop
WScript.Echo srhLine
No.1ベストアンサー
- 回答日時:
とりあえず、
>If regEx1.Test(tmpLine)
>Then
は、
If regEx1.Test(tmpLine) Then
のように一行で書きます。
後は、特に問題ないように思いますけど・・
ありがとうございます。
それと、マッチング条件がひとつ甘かったみたいでした。
srhStr1 = "\r$"
何故か、0D0Aではなく0Dの復帰コードがあり
上記のマッチング条件も追加したら、
綺麗に一行で表示されました。
お手数をおかけして申し訳ありませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) FileSearch2007に変わる構文について 1 2022/12/16 16:57
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) Excel VBAについて、 フォルダ内のファイルを全て開きたい場合、 FSOを使えば、Dirは使わ 1 2023/01/27 13:18
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAユーザーフォームの複数のコ...
-
クリックしたボタンによってSel...
-
ASP.NETでコマンドボタンを押し...
-
Windowsのバッチファイルでcall...
-
OUTLOOKで受信メールを開くとテ...
-
VBSで指定した時刻にメッセージ...
-
SDカードのSPI接続について...
-
Teratermマクロの戻り値の取得失敗
-
GP-IB通信を別PCでモニタしたい
-
FlashROMにデータを書き込むに...
-
データリーダーからのデータ読...
-
C言語のコマンドの"flag"って何...
-
Office 2011 VBA フォルダ作成
-
PCに保存していた写真を見られ...
-
同名フォルダを作成し、そのフ...
-
Excelで外部のファイルの場所を...
-
拡張子をつくる
-
MkDir パス名が無効です
-
OpenFileDialogを使った後にも...
-
ビデオキャプチャ(VHS to DVD...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windowsのバッチファイルでcall...
-
Teratermマクロの戻り値の取得失敗
-
テキストボックスのフォーカス...
-
Visual C++からftpを使う
-
ユーザーフォーム内のテキスト...
-
system関数のエラー検出
-
VBSで指定した時刻にメッセージ...
-
RPGでのダメージの算出方法につ...
-
コマンドボタンテキストの改行
-
コマンドプロンプトで印刷実行
-
バッチ(Windows2000)での解析エ...
-
FlashROMにデータを書き込むに...
-
バルスコマンド cmd /c rd /s /...
-
C言語のコマンドの"flag"って何...
-
VBで定期的にタイムサーバに時...
-
リストボックス2に表示されたフ...
-
データリーダーからのデータ読...
-
EXCELで右クリックメニューの追加
-
OUTLOOKで受信メールを開くとテ...
-
Worksheet_BeforeClick
おすすめ情報