EUC で LF 改行のデータを SHIFT_JIS として読む

  Windows 上に保存された Unix、Linux のファイルを読みます



  
Set Stream = CreateObject( "ADODB.Stream" )

Stream.Open
Stream.Type = 2	' テキスト
Stream.Charset = "euc-jp"
Stream.LoadFromFile "euc_lf.txt"

Stream.Position = 0
Stream.LineSeparator = 10	' LF

Do While not Stream.EOS
	' -2 は、ストリームから次の行を読み取ります
	strRet = Stream.ReadText( -2 ) 
Loop

Stream.Close
  

VBScript 内の処理は、Unicode なので、以下でも同じ結果です

  
Set Stream = CreateObject( "ADODB.Stream" )
Set Stream2 = CreateObject( "ADODB.Stream" )

Stream.Open
Stream.Type = 2	' テキスト
Stream.Charset = "euc-jp"
Stream.LoadFromFile "euc_lf.txt"

Stream2.Open
Stream2.Charset = "shift_jis"
Stream.CopyTo Stream2
Stream.Close

Stream2.Position = 0
Stream2.LineSeparator = 10	' LF

Do While not Stream2.EOS
	' -2 は、ストリームから次の行を読み取ります
	strRet = Stream2.ReadText( -2 ) 
Loop

Stream2.Close
  

Stream2 を SaveToFile メソッドで保存すると、Shift_Jis + LF のファイルになります。
( Stream2.SaveToFile "Shift_Jis_lf.txt", 2 )

Shift_Jis + CRLF のファイル に保存するには、FileSystemObject を使用する方法と、Stream オブジェクトを
使用する方法があります

FileSystemObject
  
Set Stream = CreateObject( "ADODB.Stream" )
Set Fso = CreateObject( "Scripting.FileSystemObject" )

Stream.Open
Stream.Type = 2	' テキスト
Stream.Charset = "euc-jp"
Stream.LoadFromFile "euc_lf.txt"

Stream.Position = 0
Stream.LineSeparator = 10	' LF

Set objHandle = Fso.OpenTextFile( "Shift_Jis_crlf.txt", 2, True )

Do While not Stream.EOS
	' -2 は、ストリームから次の行を読み取ります
	objHandle.WriteLine Stream.ReadText( -2 ) 
Loop

objHandle.Close
Stream.Close
  

Stream オブジェクト
  
Set Stream = CreateObject( "ADODB.Stream" )
Set Stream2 = CreateObject( "ADODB.Stream" )

Stream.Open
Stream.Type = 2	' テキスト
Stream.Charset = "euc-jp"
Stream.LoadFromFile "euc_lf.txt"
Stream.LineSeparator = 10	' CRLF
Stream.Position = 0

Stream2.Open
Stream2.Type = 2	' テキスト
Stream2.Charset = "shift_jis"
Stream2.LineSeparator = -1	' CRLF

Do While not Stream.EOS
	' -2 は、ストリームから次の行を読み取ります
	Stream2.WriteText Stream.ReadText( -2 ), 1
Loop

Stream2.SaveToFile "Shift_Jis_crlf.txt", 2

Stream.Close
Stream2.Close
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ