Visual Basic - Separar código

Life is soft - evento anual de software empresarial
 
Vista:

Separar código

Publicado por Juan Pablo (46 intervenciones) el 26/10/2006 21:24:43
Hola a todos.

Tengo el siguiente problema que no sé como resolverlo. Resulta que he creado un codigo del tipo texto que indica varias caracteristicas de un tipo de proceso x.
El problema lo tengo a leerlo, ya que necesito separarlo en varias partes que indican una característica particular del proceso. Por ejemplo, si mi codigo es "00112233", necesito separarlo porque "00" significa una cosa, "11" otra, etc.
Como puedo hacer esto?. Ojala que puedan ayudarme.

Muchas gracias y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Separar código

Publicado por Benedicto (1 intervención) el 26/10/2006 22:54:25
ya has probado con las funciones Right, Mid y Left?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Separar código

Publicado por Juan Pablo (46 intervenciones) el 26/10/2006 23:03:55
Voy a probar esa funciones. Despues te comento como me fue.
Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Separar código

Publicado por CSO (1 intervención) el 26/10/2006 23:07:46
Option Explicit

Dim codigo As String
Dim Rn(20) As Byte
Dim n As Byte
Dim VaT As Byte
--------------------------------------------------------

Private Sub Command1_Click()
Dim i As Byte
Dim Vco As Byte
Dim sdos As Byte
Dim zr As Byte
Dim np As Byte
Dim lch As String
Dim RF(20) As Byte
Dim fg As Byte
fg = 1
Vco = Len(codigo)

For i = 1 To Vco
Rn(i) = Mid(codigo, i, 1) ' aki descompones uno a uno los numeros
Next i

For i = 1 To 12 ' el 12 se saca del valor de Vco + su mitad
If zr = 2 Then
np = np + 1
RF(np) = lch ' aki se forman las parejas de numeros
lch = ""
zr = 0
Else
lch = lch & Rn(fg) ' si ay menos de dos espera a uno mas
fg = fg + 1
zr = zr + 1
End If

Next i
Label1 = RF(3) ' aki puedes ver el resultado, cambia el valor de 3 y veras los pares, el 0 NO
Label1 = Format(Label1, "0#")
End Sub

Private Sub Form_Load()
codigo = "00112233"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Separar código

Publicado por San Pedro (1 intervención) el 27/10/2006 15:03:03
Bueno yo no aporto nada, pero puse mi nombre para seguir con los Papas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar