/
aprogrammer
/
dotnet-docs
Обзор
Документация
Войти
/
aprogrammer
/
dotnet-docs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
samples/snippets/visualbasic/VS_Snippets_Data/XmlSchemaReadWriteExample/VB/XmlSchemaReadWriteExample.vb
35 строк
1 KB
Next Turn
Format codes based on .editorconfig, Part 17 (#18986)
17 июн 2020, 18:38
Не верифицирован
17 июн 2020, 18:38
8f459a1
Код
Авторство
О чём код?
'<snippet1> Imports System.IO Imports System.Text Imports System.Xml Imports System.Xml.Schema Class XmlSchemaReadWriteExample Shared Sub Main() Try Dim reader As XmlTextReader = New XmlTextReader("example.xsd") Dim myschema As XmlSchema = XmlSchema.Read(reader, AddressOf ValidationCallback) myschema.Write(Console.Out) Dim file As FileStream = New FileStream("new.xsd", FileMode.Create, FileAccess.ReadWrite) Dim xwriter As XmlTextWriter = New XmlTextWriter(file, New UTF8Encoding()) xwriter.Formatting = Formatting.Indented myschema.Write(xwriter) Catch e As Exception Console.WriteLine(e) End Try End Sub Shared Sub ValidationCallback(ByVal sender As Object, ByVal args As ValidationEventArgs) If args.Severity = XmlSeverityType.Warning Then Console.Write("WARNING: ") Else If args.Severity = XmlSeverityType.Error Then Console.Write("ERROR: ") End If End If Console.WriteLine(args.Message) End Sub End Class '</snippet1>