PC用眼鏡【管理人も使ってますがマジで疲れません】 解約手数料０円【あしたでんき】 Yahoo 楽天 NTT-X Store

無料ホームページ 無料のクレジットカード 海外格安航空券 ふるさと納税 海外旅行保険が無料！ 海外ホテル

告知欄です

メモ２

425 ：424：07/01/08 02:43:03 ID:cL/xX2GZ

datの最後をバイナリでLF、もしくはCRでないときに空行追加。
ｓOutのブロックはいらなかった。

dim sIn

set sIn = CreateObject("ADODB.Stream")

With sIn
.type = 1
.open
End With

sIn.LoadFromFile(tuika)
line = sIn.Read
sIn.Close

ch = AscB(MidB(line, LenB(line) ,1))

if (ch <> 10 and ch <> 13) then
　　　　Set su = fs.OpenTextFile(tuika, ForAppending)
　　　　su.WriteLine
　　　　su.Close
End If