No.2ベストアンサー
- 回答日時:
#1は、テスト環境でテストしてから本番で使ってみて下さいね。
ファイルの中身が変更されるし、最悪中身がなくなりますしね。
No.1
- 回答日時:
'現在のフォルダでテキストファイルの中身を?が行頭にある行以下に変更する
Dim fso, wsho, folder, file
Dim tempFile, outFile,readFile
Dim strLine, Flag, fileName
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set wsho = WScript.CreateObject("WScript.Shell")
Set folder = fso.GetFolder(".")
tempFile = fso.GetTempName
For Each file in folder.files
if UCase(right(file.Name,4)) = ".TXT" then '拡張子が.txt
Set outFile = folder.CreateTextFile(tempFile, true) '作業ファイルを作る
Set readFile = file.OpenAsTextStream(1)
Flag = false
Do until readFile.AtEndOfStream
strLine = readFile.ReadLine '一行読み出し
if Left(strLine,1) = "?" then Flag = true
if Flag then
outFile.WriteLine(strLine)
end if
loop
readFile.Close
outFile.Close
fileName = file.Name
file.Delete
Set file=fso.GetFile(tempFile)
file.Name=fileName
end if
next
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- アプリ Android studio 初心者 Hello Android!しか表示されない 1 2023/08/01 08:47
- フリーソフト テキストファイル内を検索したい 1 2022/06/01 08:33
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/14 12:49
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
巨大なテキストの最終行を取得...
-
fgets で値が取得できない
-
csvファイルの横方向への改行に...
-
ファイル全てを .xlsm に変更し...
-
VBA テキストファイルを読み取...
-
window.open でのファイル指定方法
-
perlで画像をダウンロードしよ...
-
python renameについて
-
並び方、
-
perlによる ファイル内容 検...
-
MATLABのm-fileについて
-
perlでMail::Mbox::MessagePars...
-
perlのソケットがうまく作動し...
-
ファイルを読み込んで改行だけ...
-
水溶性の展色剤
-
フォルダーの深さの限界
-
VBAでCSVファイルを途中行まで...
-
awkスクリプトでダブルクォーテ...
-
ReadLineでの読み出し行を指定する
-
VBAで巨大なファイルの途中から...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
window.open でのファイル指定方法
-
csvファイルの横方向への改行に...
-
fgets で値が取得できない
-
MATLABのm-fileについて
-
JSP URLに表示される拡張子 .jsp
-
drtファイルはどうしたら開...
-
PerlでのUseless use...
-
python renameについて
-
巨大なテキストの最終行を取得...
-
ファイル全てを .xlsm に変更し...
-
Firefox で file:// で始まる U...
-
VBAコードを張り付け後のエクセ...
-
perl ファイルが開かない
-
ファイルの存在の有無を確かめ...
-
AutoNts
-
VBA テキストファイルを読み取...
-
fopen64について
-
行を指定して削除する方法PERL
-
文字列をカウントする方法
-
read() on unopened filehandle...
おすすめ情報