Autor Tema: Funcion Para Manejo De Cadena De Caracteres (Leído 1827 veces)

VeronicaNF · « **en:** Sábado 22 de Marzo de 2008, 23:55 »

segun mi criterio esta es la instruccion que no funciona

Código: Text

For m = 0 To m = 21
    formula(m) = Mid(w.Text, m + 1, 1)
Next m
 

y me gustaria saber como puedo corregirla, aqui esta el codigo completo

Código: Text

Dim k As Integer
Dim arreglo() As String
Dim total As Integer
Dim igual() As String
Dim cambio As Integer
Dim formula(22) As Variant
Dim j  As Integer
Dim z  As Integer
Dim m  As Integer
 
arreglo = Split(variable.Text, &#34;;&#34;)
 
For m = 0 To m = 21
    formula(m) = Mid(w.Text, m + 1, 1)
Next m
 
 
For k = LBound(arreglo) To UBound(arreglo)
    igual = Split(arreglo(k), &#34;=&#34;)
    For j = 0 To j = 21
        If igual(0) = formula(j) Then
            formula(j) = igual(1)
        End If
    Next j
        igual(k) = &#34;&#34;
Next k
 
total = Val(formula(0))
 
For m = 0 To m = 2
    cambio = Val(formula(m + 1))
    Select Case formula(m)
        Case &#34;*&#34;
            total = total * cambio
        Case &#34;/&#34;
            total = total / cambio
        Case &#34;+&#34;
            total = total + cambio
        Case &#34;-&#34;
            total = total - cambio
    End Select
Next m
 
result.Text = total
 

cualquier ayuda es bien recibida

F_Tanori

La sintaxis no es correcta ,
</div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>XCODE </td></tr><tr><td id='XCODE'>For m = 0 To m = 21
formula(m) = Mid(w.Text, m + 1, 1)
Next m</td></tr></table><div class='postcolor'>

No tienes que asignarle de nuevo el valor "Hasta" a la variable (eso lo hace el ciclo)

Código: Text

For m = 0 To 21
   formula(m) = Mid(w.Text, m + 1, 1)
Next m
 

Ahora, pudieras poner un ejemplo para que se utiliza la funcion de abajo, cuales son los datos que tiene que recibir etc

Saludos

VeronicaNF

muchas gracias, esto soluciona mi problema

F_Tanori

Por nada

Saludos

SoloCodigo

Autor Tema: Funcion Para Manejo De Cadena De Caracteres (Leído 1827 veces)

VeronicaNF

Funcion Para Manejo De Cadena De Caracteres

F_Tanori

Re: Funcion Para Manejo De Cadena De Caracteres

VeronicaNF

Re: Funcion Para Manejo De Cadena De Caracteres

F_Tanori

Re: Funcion Para Manejo De Cadena De Caracteres