VBSの質問です

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

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

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/03/02 15:12:57
  • 終了:2013/03/02 15:30:12

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13481ベストアンサー獲得回数11982013/03/02 15:28:09

ポイント300pt
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


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

id:takanii

ほんとうに、ありがとうございます!

2013/03/02 15:30:04

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません