/ Published in: Visual Basic
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Public Function vl64separar(datos As String, arreglo As Integer) As String Dim i As Long Dim j As Long Dim Encontro As String Dim cadena() As String j = -1 For i = 1 To Len(datos) ReDim Preserve cadena(0 To Len(datos)) 'Un digito If Asc(Mid(datos, i, 1)) >= 72 And Asc(Mid(datos, i, 1)) <= 79 Then Encontro = Mid(datos, i, 1) j = j + 1 cadena(j) = Encontro End If 'dos digitos If Asc(Mid(datos, i, 1)) >= 80 And Asc(Mid(datos, i, 1)) <= 87 Then Encontro = Mid(datos, i, 2) j = j + 1 cadena(j) = Encontro i = i + 1 End If 'tres digitos If Asc(Mid(datos, i, 1)) >= 88 And Asc(Mid(datos, i, 1)) <= 95 Then Encontro = Mid(datos, i, 3) j = j + 1 cadena(j) = Encontro i = i + 2 End If 'cuatro digitos If Asc(Mid(datos, i, 1)) >= 96 And Asc(Mid(datos, i, 1)) <= 103 Then Encontro = Mid(datos, i, 4) j = j + 1 cadena(j) = Encontro i = i + 3 End If 'cinco digitos If Asc(Mid(datos, i, 1)) >= 104 And Asc(Mid(datos, i, 1)) <= 111 Then Encontro = Mid(datos, i, 5) j = j + 1 cadena(j) = Encontro i = i + 4 End If 'seis digitos If Asc(Mid(datos, i, 1)) >= 112 And Asc(Mid(datos, i, 1)) <= 119 Then Encontro = Mid(datos, i, 6) j = j + 1 cadena(j) = Encontro i = i + 5 End If Next vl64separar = cadena(arreglo) End Function