Transformar de base64 a decimal

 Dim array As Byte() = Convert.FromBase64String("AQAB")
 Dim hex As String = BitConverter.ToString(array).Replace("-", String.Empty)
 Dim n As Integer = Val("&H" & hex)

Dim n1 As Integer = Val("&H" & BitConverter.ToString(Convert.FromBase64String("AQAB")).Replace("-", String.Empty))


fuente1
fuente2

buscar y reemplazar saltos de línea y retorno en notepad

Atributos certificado

• CN: CommonName
• OU: OrganizationalUnit
• O: Organization
• L: Locality
• S: StateOrProvinceName
• C: CountryName

fuente

Error HRESULT -2147023782

Solución: no agregar la dll MSXML5

día de la semana

Dim i As Integer = DateTime.Now.DayOfWeek

cambiar db_owner a dbo

ejemplo:

tabla: db_owner.clientes

ALTER SCHEMA dbo TRANSFER db_owner.clientes

tabla: dbo.clientes

Contar caracteres

Dim x As String = "abcdd"

Dim i As Integer = x.Count(Function(c) c="d")

i = 2

fuente

nombre del archivo

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Dim nombre As String = "DTE(id_DTE)100.xyz(0001).xml"
        Dim nombre As String = "DTE(tipo_DTE)(folio).(x)xml"


        Dim x As New ArrayList
        Dim dato As String = ""
        Dim n As Integer = nombre.Length ' 28
        Dim j As Integer = 0
        Dim k As Integer = 0
        For i As Integer = 0 To nombre.Length - 1

            If nombre(i) = "(" Then
                For j = i To nombre.Length - 1

                    dato += nombre(j)
                    If nombre(j) = ")" Then
                        x.Add(dato)
                        dato = ""
                        i = j
                        Exit For
                    End If
                Next
            Else
                For k = i To nombre.Length - 1

                    If nombre(k) = "(" Then
                        x.Add(dato)
                        i = k - 1
                        dato = ""
                        Exit For
                    Else
                        dato += nombre(k)
                        i = k
                        If i = nombre.Length - 1 Then
                            x.Add(dato)
                            i = k
                            dato = ""
                            Exit For
                        End If
                    End If
                Next
            End If
        Next

        MessageBox.Show("!")


    End Sub
End Class

xmloptions

Imports System.Xml

Public Class Form1


    Public archivo As String = "cfg.xml"

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click

        Dim doc As New XmlDocument
        doc.Load(archivo)

        Dim tablas As XmlNodeList = doc.SelectNodes("/Data/TCV/tabla") ' cargar tablas
        Dim campos As XmlNodeList = doc.SelectNodes("/Data/TCV/campo/id") ' cargar todos los campos

        For Each x As XmlNode In campos
            MessageBox.Show(x.InnerXml)
        Next



    End Sub

    Private Sub btnvervar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvervar.Click

        Dim campo As String = "test2"

        Dim doc As New XmlDocument
        doc.Load(archivo)

        Dim nodes As XmlNodeList = doc.SelectNodes("/Data/TCV")

        For Each x As XmlNode In nodes
            Dim nodevar As XmlNodeList = x.SelectNodes("campo/id")

            For Each node As XmlNode In nodevar

                If node.InnerXml = campo Then
                    Dim var As XmlNodeList = node.ParentNode.SelectNodes("variables/var")
                    For Each elem As XmlNode In var
                        MessageBox.Show(elem.InnerXml)
                    Next
                    Exit For
                End If
            Next
        Next
    End Sub

    Private Sub btneliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneliminar.Click

        Dim tabla As String = "DoctosFE"

        Dim doc As New XmlDocument
        doc.Load(archivo)


        Dim xpath As String = "/Data/TCV[tabla=""" & tabla & """]"
        Dim del As XmlElement = doc.SelectSingleNode(xpath)

        del.ParentNode.RemoveChild(del)

        doc.Save(archivo)


    End Sub

transformar de arraylist a array

Dim array As new Arraylist

array.ToArray(GetType(System.String))