人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBSの質問です
a.txtの先頭と末尾に指定の文字を入れて
例のようなb.txtを作成するコードを教えて下さい
a.txt
*********
a
b
c
*********

b.txt
*********
1
a
b
c
2
*********

●質問者: takanii
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●300ポイント ベストアンサー
Dim objFile ' 対象ファイル
Dim objFile2 ' 対象ファイル
Dim objFSO ' ファイルシステムオブジェクト
Dim t'読み込んだテキスト
Dim a1'テキストの最後の一文字の文字コード
Dim a3'テキストの最後から二文字目の文字コード

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("a.txt")
t=objFile.ReadAll
' 書き込み
Set objFile2 = objFSO.CreateTextFile("b.txt")

objFile2.WriteLine ("1")
a1 = asc(right(t,1))
a2 = asc(left(right(t,2),1))

if a1=10 and a2=13 then
objFile2.Write (t)
else
objFile2.WriteLine (t)
end if
objFile2.WriteLine ("2")
objFile.Close
objFile2.Close


最後の行に改行がある場合とない場合を判断して出力するようにしています。


takaniiさんのコメント
ほんとうに、ありがとうございます!
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ