Foro de elhacker.net

Public valores(2) as string
Public texto as string = ""
texto="Ejmplo"

for i = 1 to Len(texto)
'Aquí iria la función que recorra cada carácter y la guarde en un array de tipo string
valores(i - 1) = valor obtenido
if IsNumeric() then
msgbox("Es número")
else
msgbox("No es número")
next

        Dim Cadena = "D01"
        Dim Caracteres As New ArrayList

        Caracteres.AddRange(Cadena.ToCharArray)

        'Caracteres(0) contiene D
        'Caracteres(1) contiene 0
        'Caracteres(2) contiene 1

Public Sub ReciclarCodCargo(ByVal CodigoEliminado As String)
        Try
            Dim t As Integer = 0

            Dim Caracteres As New ArrayList

            Caracteres.AddRange(CodigoEliminado.ToCharArray)

            If Caracteres(1) > 0 Then
                'En caso de ser de dos cifras, por ejemplo 25 lo concatenamos y guardamos
                'en la tabla Control, para usarlo la siguiente vez ... 
                t = Caracteres(1) & Caracteres(2)
            Else
                'Caso contrario es de una cifra por lo tanto no hay más que comentar
                t = Caracteres(2)
            End If
            com.CommandText = "update Control set valor = '" & t & "' where parametro ='cargo'"
            com.Connection = con
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub