Конвертация данных в кодировку UTF-8 - История изменений

SYSDBA в 17:01, 14 мая 2016

2016-05-14T17:01:44Z

SYSDBA в 16:12, 14 мая 2016

2016-05-14T16:12:58Z

SYSDBA в 16:12, 14 мая 2016

2016-05-14T16:12:28Z

SYSDBA: Новая страница: «Запись в файл данных в кодировке UTF-8: Option Explicit Sub SaveXML_UTF8 Const fmCreate = &HFFFF& …»

2016-05-14T16:03:00Z

Новая страница: «Запись в файл данных в кодировке UTF-8: <syntaxhighlight lang="vbnet"> Option Explicit Sub SaveXML_UTF8 Const fmCreate = &HFFFF& …»

Новая страница

Запись в файл данных в кодировке UTF-8:

<syntaxhighlight lang="vbnet">
Option Explicit
Sub SaveXML_UTF8

Const fmCreate = &HFFFF&
Const FileName = "c:\temp\test.xml"

Dim MS, FS, Creator

Set Creator = New TCreator
Set MS = Creator.GetObject(nil, "TMemoryStream", "")

MS.WriteLn("<?xml version=""1.0"" encoding=""UTF-8""?>")
MS.WriteLn("<note>")
MS.WriteLn(" <text>" & _
System.ReplaceXMLTags("Кириллический текст cо специальными символами < > "" ' &")) &_
"</text>"
MS.WriteLn("</note>")

Set FS = Creator.GetObject(Array(FileName, fmCreate), "TFileStream", "")
Call System.WIN1251ToUTF8(MS, FS)
End Sub
</syntaxhighlight>

[[Category:Импорт/экспорт данных]]

@@ Строка 29: / Строка 29: @@
 <syntaxhighlight lang="vbnet">
 Option Explicit
-Sub Macros147012679_591807334
+Sub LoadXML_UTF8
    Const fmOpenRead  = 0

@@ Строка 23: / Строка 23: @@
    Call System.WIN1251ToUTF8(MS, FS)
 End Sub
 </syntaxhighlight>

@@ Строка 22: / Строка 22: @@
    Set FS = Creator.GetObject(Array(FileName, fmCreate), "TFileStream", "")
    Call System.WIN1251ToUTF8(MS, FS)
 End Sub
 </syntaxhighlight>
 [[Category:Импорт/экспорт данных]]