No.4ベストアンサー
- 回答日時:
だいぶ手をぬいてますが、こんな感じ
ほんちゃんではエラー制御やオブジェクトの宣言、開放などきちんとしましょう
//test.vbs
Const ForReading = 1, ForWriting = 2
main
sub main
Set objArgs = WScript.Arguments
if objArgs.count=0 Then
Set sOut = WScript.StdOut
sOut.writeLine "no data"
sOut.close
exit sub
end if
fileName=objArgs(0)
Set fs = CreateObject("Scripting.FileSystemObject")
tempName=fileName+".temp"
Set tf1 = fs.OpenTextFile(fileName ,ForReading )
Set tf2 = fs.OpenTextFile(tempName ,ForWriting ,True)
While Not tf1.AtEndOfLine
x=tf1.ReadLine
y=convertText(x)
tf2.WriteLine(y)
wend
tf1.Close
tf2.Close
end sub
function convertText(txt)
line=Mid(txt,1,3)
line=line + "XXX"
line=line + Mid(txt,4)
line=Mid(line,1,Len(line)-3)
convertText = line
end function
これをコンソールで
cscript test.vbs test.txt
とすると、test.txt.tempができるのがわかると思います。
最終型を元ファイルにコピーするか、別名にするかは好きにしてください
No.3
- 回答日時:
OSのバージョンは?
DOSコマンドにこだわる理由は何でしょうか?
MS-DOSを使っているのでしょうか?
標準のコマンドでは不可能なので、vbs なり、ほかのプログラムをインストールして使用してはいかがでしょうか。
この回答へのお礼
お礼日時:2009/12/01 11:57
回答ありがとうございます。
Windows2003Serverになります。
DOSコマンドの理由ですが、今回のテキストファイルの編集後に
別サーバへコピーする動作(タスクで実行)が入っていますが、
ここがDOSコマンド(COPY)を使っており、ミックスできればと思いました。VBSを別途タスクに仕掛ければ済む話ですので、そちらでも大丈夫です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- その他(データベース) カラム上の重複を削除するクエリを教えてください 3 2022/04/12 14:11
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Visual Basic(VBA) 先頭と末尾を指定して連続した数字を入力 1 2022/09/14 13:12
- UNIX・Linux Linuxについて質問です。 以下のhistoryの出力結果から、sedコマンドのファイル名tmp1 1 2023/02/03 20:11
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
拡張子を元に戻す
-
Teraマクロで取得した変数を編...
-
VBAでワークシートを引数として...
-
テキストファイルで提出とは?
-
多数のサブディレクトリ内のフ...
-
ExcelVBA テキストファイルUNIC...
-
テキストファイルのファイル名...
-
java,StringTokenizerの使い方...
-
テキスト(txt)→ワード(docx)へ...
-
ファイルの最後に文字列挿入
-
FDからDドライブへどんどんコピ...
-
NOTEPAD.EXEが見つかりません。
-
テキストファイルが文字化けする
-
バッチ処理でファイルの中身を...
-
ファイル内容の修正、行削除に...
-
accessでSQL文を使ってcsvファ...
-
ハードディスク上書き用大容量...
-
フォルダ階層のあるzipファイル...
-
PowerShellでのテキスト編集に...
-
perl ファイル内文字列抽出
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
VBAでワークシートを引数として...
-
.txtではなく.logの方が良いの...
-
拡張子を元に戻す
-
多数のサブディレクトリ内のフ...
-
COPYコマンドで結合すると余計...
-
バッチファイル 複数ファイル...
-
テキストファイルで提出とは?
-
バッチファイルで文字列削除に...
-
Windowsのバッチファイルを利用...
-
テキストファイルのファイル名...
-
ファイルの最後に文字列挿入
-
psqlでエラーログをとりたい
-
forfilesで検索したファイルを...
-
バッチファイルからVBAに引数を...
-
accessでSQL文を使ってcsvファ...
-
テキストファイルのタブをカン...
-
MATLABで行列を配列に格納する方法
-
renameコマンドについて
-
【Excel】 VBAを使って毎回名前...
おすすめ情報