Visual Basic - separar texto delimitado

Life is soft - evento anual de software empresarial
 
Vista:

separar texto delimitado

Publicado por ASTERIX (26 intervenciones) el 26/11/2005 17:44:33
hola a todos:
Tengo una variable fomada por cinco elementos de texto, SEPARADOS POR PUNTO Y COMA ";":

variable = texto1;texto2;....;texto5
Como puedo obtener cinco variables, con cada uno de los textos:

variable1 = texto1
variable2=texto2
.....................................
variable5= texto5

Gracias a todos
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 texto delimitado

Publicado por ivan (463 intervenciones) el 26/11/2005 18:13:50
No entiendo bien tu comentario...

cuando dices..

variable = texto1;texto2;....;texto5

no debería ser.....???

variable = "texto1;texto2;....;texto5"

o sea separado entre " ",

Si acaso es asi, o sea, que VARIABLE sea tipo string, si puedo ayudarte.... solo aclarame. Saludos
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 texto delimitado

Publicado por Arnaldo (53 intervenciones) el 26/11/2005 19:02:05
Hola, no entiendo bien la pregunta, pero te mando lo que interpreto.
Variable es un texto separado por ";" Ej.: "jhkjhkjhfds;erererere;yyy;ttert;kkgkg"
apartir de esa cadena de caracteres vos queres asignar por cada una de las palabras comprendidas hasta el primer ";" una variable. si es asi. Te mando un ejemplo.

Dim MText (0..4) As string

Sub GenVariablesTxt (VarText As String)
Dim x as Integer

VarText = "jhkjhkjhfds;erererere;yyy;ttert;kkgkg"
x = 0
while (instr(VarText,";") <> 0) Do
Mtext (x)= Left(VarText,Instr(varText,";")-1)
x = x + 1
VarText = Mid(VarText,instr(VarText,";")+1)
wend
Mtext(x) = VarText

End Sub

Enonces ahora tenes un Vector de dimencion 5 con Variables del tipo string en cada una de sus posiciones. A estas Variables poes enviarlas a cajas de texto o trabajar como necesites. Si no te funciona Borrale el Do al While, no me acuerdo si va o no expresado de esta forma.

ahora si vos tenes 5 cajas de texto y queres asignar a una variable, el eocntenido de esas cajas de texto, separados solo por ";", entonces seria algo asi:

VarText = Text1.text & ";" & Text2text & ";" & Text3text & ";" & Text4text & ";" & _
Text5.Text
Bueno, si te sirve algo de esto barbaro. sino, postea tu pregunta de nuevo en el foro.
Saludos

Arnaldo.
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