Changeset 682 for trunk/ab5.0/ablib/src/Classes/System/IO/StreamWriter.ab

Timestamp:

Feb 16, 2009, 4:26:24 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

UTF8Encodingクラスをとりあえず使える状態に。ただし、BOM出力はまだ不可能。
(#231)

File:

• trunk/ab5.0/ablib/src/Classes/System/IO/StreamWriter.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/System/IO/StreamWriter.ab

@@ -20 +20 @@
     */
     Sub StreamWriter(path As String)
-        init(New FileStream(path, FileMode.Create, FileAccess.Write, FileShare.None))
+        init(New FileStream(path, FileMode.Create, FileAccess.Write, FileShare.None), Nothing)
     End Sub
 
@@ -28 +28 @@
     */
     Sub StreamWriter(stream As Stream)
-        init(stream)
+        init(stream, Nothing)
+    End Sub
+
+    /*
+    @date 2009/02/16
+    @auther Egtra
+    */
+    Sub StreamWriter(stream As Stream, encoding As Text.Encoding)
+        init(stream, encoding)
     End Sub
 
@@ -83 +91 @@
 
 Private
-    Sub init(stream As Stream)
+    Sub init(stream As Stream, e As Text.Encoding)
         s = stream
         buf = New Text.StringBuilder(4096)
-        '暫定。正式版ではUTF-8を標準とする。
-        encoder = New Text.Detail.WindowsCodePageEncoder(CP_ACP)
+        If ActiveBasic.IsNothing(e) Then
+            '暫定。正式版ではUTF-8を標準とする。
+            encoder = New Text.Detail.WindowsCodePageEncoder(CP_ACP)
+        Else
+            encoder = e.GetEncoder()
+        End If
     End Sub