Separar cifras

[sexto]

Hola.

A ver, os cuento lo que quiero.

Mi idea es escribir un numero, por ejemplo 346, y que me cuente y me separe las cifras, es decir. que primero me coja el 3, hacer lo que tenga que hacer y meterlo en la variable, luego lo mismo con el 4 y luego lo mismo con el 6. pero separados, no se si me explico bien...

muchas gracias

[seba123neo]

Hola,algo asi??

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim Palabra As String: Palabra = "sebas"
For i = 1 To Len(Palabra)
MsgBox Left(Palabra, i)
Next
End Sub

saludos.

[sexto]

me da error en el Left, me dice que no tiene parametros y su valor no se puede indizar.

por cierto, no lo he dicho, estoy con la version 2008.

[seba123neo]

estoy con la version 2008.

pequeño el detalle.... ,esto deberia postearse en la categoria de .NET no aca...

en .NET seria asi:

Código [Seleccionar] Expandir

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Palabra As String = "sebas"
        Dim i As Integer
        For i = 1 To Len(Palabra)
            MsgBox(Strings.Left(Palabra, i))
        Next
    End Sub
End Class

saludos.

[sexto]

ok, perdon :s, yo es que siempre usaba el 6, asi que la costumbre...

ya lo he probado y no es exactamente lo que quiero, pero si la base, creo que a partir de ahora si que puedo seguir yo.

muchas gracias por tu ayuda, tendras noticias mias

[seba123neo]

es lo que vos pediste ,lo unico que tenes que hacer es guardar en las variables que vos queiras la letra de la palabra que vos quieras,segun el inidice o sea segun la "i"

[sexto]

si si, lo se. por eso te digo que a partir de ahora se seguir yo solo.

espero no tener mas complicaciones...

[sexto]

No consigo meter el numero/ letra en la variable...

i es la posicion, Palabra es la palabra...

que tengo que hacer? dios como me como la oya para que luego sea una tonteria ¬¬

[Spider-Net]

Es fácil y está bien planteado. seba123neo ha planteado una buena solución pero ha faltado un detalle... en lugar de Left, usa Mid... así:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Palabra As String = "sebas"
        Dim i As Integer
        For i = 1 To Len(Palabra)
            MsgBox(Strings.Mid(Palabra, i, 1))
        Next
    End Sub
End Class

Así cogerá caracter a caracter cada uno de ellos. De la otra forma primero cogía uno, luego dos, luego tres... y así sucesivamente..

[sexto]

lo que yo decia, por una l...

Muchas gracias, eso SI que era exactamente lo que queria