jueves, 14 de marzo de 2019

Tipo de dato

Integer : 2,147,483,647
Long : 9,223,372,036,854,775,807

fuente

reemplazar caracteres y espacios

Public Function reemplazar_str(ByVal str As String) As String()
        Return Regex.Replace(str, "\s+", "@").Split("@")
    End Function

lunes, 11 de marzo de 2019

miércoles, 6 de marzo de 2019

convertir de array bytes a string

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

        Dim ISO88591 As System.Text.Encoding = System.Text.Encoding.GetEncoding("ISO-8859-1")
        Dim str As String = "áéíóú@Æ cajón afecto"
        Dim isoBytes() As Byte = ISO88591.GetBytes(str)
        Dim x As String = ISO88591.GetString(isoBytes)
        Dim p As String = ""

       x = ISO88591.GetString(isoBytes, 0, isoBytes.Length)

    End Sub

fuente

lunes, 4 de marzo de 2019

viernes, 1 de marzo de 2019

arraylist a txt

System.IO.File.WriteAllLines("archivo.txt", arrayList.Cast(Of String).ToArray)