VB初心者質問スレ Part7
■ このスレッドは過去ログ倉庫に格納されています
001914
NGNG変数を宣言した後です。すごい単純なやつかと・・
Open "C:\WINDOWS\デスクトップ\第2のサイト\" & suuzi & "\sylpheed.cgi" For Input As #1
Do While Not EOF(1)
Line Input #1, buff1
buff1 = buff1 + Chr(13) + Chr(10)
buff2 = buff2 + buff1
buff3 = Replace(buff2, "パソコン", "パーソナルコンピュータ")
Loop
Close #1
Open "C:\WINDOWS\デスクトップ\第2のサイト\" & suuzi & "\sylpheed.cgi" For Output As #2
Print #2, buff3
Close #2
↑これで普通のファイルの場合はできるんですが(Shift-JIS)
”パソコン”を”パーソナルコンピュータ”に置きかえる例なんですが・・
で、EUCだから改行コードがchr(13)+chr(10)→chr(10)なのかな・・と・・
それで変えてみたんですが置きかえられたファイルはやっぱり文字化け・・
更新されたファイルが勝手にShift-JISになってました・・
まだ初めて1ヶ月程度なんですが、今の自分技術で可能でしょうか、
これを解決するのは・・
■ このスレッドは過去ログ倉庫に格納されています