まずは改行コードがちゃんとCRLFになっているかどうか、
確認してみてはどうでしょうか〜(^^
#module
#deffunc Replace var buf, str befStr, str aftStr
newcom oReg, "VBScript.RegExp"
comres buf
oReg( "Pattern" ) = befStr
oReg( "Global" ) = 1
oReg->"Replace" buf, aftStr
delcom oReg
return
#global
CODE_CR = " "
poke CODE_CR, 0, 13
CODE_LF = " "
poke CODE_LF, 0, 10
sdim data, 256
notesel data
noteload "テスト.txt"
mes data
if ( instr( data, 0, "\n" ) != -1 ) {
mes "◎改行コードはCRLFです\n"
} else {
if ( instr( data, 0, CODE_CR ) != -1 ) {
mes "▲改行コードはCRです\n"
Replace data, CODE_CR, "\n"
mes "改行コードをCRLFに変更しました"
mes data
} else {
if ( instr( data, 0, CODE_LF ) != -1 ) {
mes "▲改行コードはLFです\n"
Replace data, CODE_LF, "\n"
mes "改行コードをCRLFに変更しました"
mes data
}
}
}