Visual Basic

If I understand correctly, if your code was "g" you want the result "gg-gggg-gg".

'To get a @@-@@@@-@@
Dim h As String = "23snfg33"
Dim result As String = String.Format("{0}{1}-{2}{3}{4}{5}-{6}{7}", h.Chars(0), h.Chars(1), h.Chars(2), h.Chars(3), h.Chars(4), h.Chars(5), h.Chars(6), h.Chars(7))

'To get a @@-@@@@-@@
Dim h As String = "23snfg33"
Dim result As String = String.Format("{0}-{1}-{2}", h.Substring(0, 2), h.Substring(2, 4), h.Substring(6, 2))

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)