Visual Basic

Public Class MaskFormater

    Private Sub New()
    End Sub

    Public Shared Function Format(ByVal input As String, ByVal mask As String) As String
        Dim maskProvider As New System.ComponentModel.MaskedTextProvider(mask)
        maskProvider.Add(input)
        Return maskProvider.ToDisplayString()
    End Function

End Class

'To get a @@-@@@@-@@
Dim h As String = "23snfg33"
Dim result As String = MaskFormater.Format(h, "aa-aaaa-aa")

No-e wrote:

"object reference set to an instance of an object"

dim frmChamber as new frmChamber <======== problem line
frmChamber.show()

dim _frmChamber as new frmChamber <======== Note underscore added, ditto on line below
_frmChamber.show()

Dim asciiString As String = "ÒË╩ßÊÒÃ╩ ╩▀Ýݦ"

Dim [unicode] As Encoding = Encoding.Unicode

Dim en As EncodingInfo() = Encoding.GetEncodings()
For Each ei As EncodingInfo In en
    Dim enc As Encoding = Encoding.GetEncoding(ei.CodePage)

    Dim asciiBytes As Byte() = enc.GetBytes(asciiString)

    Dim unicodeBytes As Byte() = Encoding.Convert(enc, [unicode], asciiBytes)

    Dim unicodeChars([unicode].GetCharCount(unicodeBytes, 0, unicodeBytes.Length) - 1) As Char
    [unicode].GetChars(unicodeBytes, 0, unicodeBytes.Length, unicodeChars, 0)

    Dim unicodeString As New String(unicodeChars)

    Console.WriteLine("Codepage:       {0}", ei.CodePage.ToString())
    Console.WriteLine("Unicode string: {0}", unicodeString)
    Console.WriteLine("")
Next

Ebube wrote:

Dim att1 As XmlAttribute = doc.CreateAttribute("xsi:noNamespaceSchemaLocation")

att1.Value = "SCHEMA_010.xsd"

reportNode.Attributes.Append(att1)

Dim att1 As XmlAttribute = doc.CreateAttribute("xsi:noNamespaceSchemaLocation", "http://www.w3.org/2001/XMLSchema-instance")
att1.Value = "SCHEMA_010.xsd"
reportNode.Attributes.Append(att1)

Dim doc As New System.Xml.XmlDocument()

Dim declarationNode As System.Xml.XmlNode = doc.CreateXmlDeclaration("1.0", "", "")
doc.AppendChild(declarationNode)

Dim reportNode As System.Xml.XmlNode = doc.CreateElement("PENCOM_REPORT")

Dim att As System.Xml.XmlAttribute = doc.CreateAttribute("xmlns:xsi")
att.Value = "http://www.w3.org/2001/XMLSchema-instance"
reportNode.Attributes.Append(att)

Dim att1 As System.Xml.XmlAttribute = doc.CreateAttribute("xsi:noNamespaceSchemaLocation", "http://www.w3.org/2001/XMLSchema-instance")
att1.Value = "SCHEMA_010.xsd"
reportNode.Attributes.Append(att1)

doc.AppendChild(reportNode)

Dim XMLOutput As String = doc.OuterXml

<?xml version="1.0"?><PENCOM_REPORT xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="SCHEMA_010.xsd" />