Leer Fichero de Texto

14/04/2005 - 20:43 por Franky | Informe spam
Buenos dias,
tengo el siguiente problema, necesito leer un fichero de texto que tiene un
formato determinado para luego guardarlo en otro fichero con otro formato,
el problema es que al leer el fichero los parrafos son demasiado grandes y
me da error de longitud incorrecta...
como puedo leer ese fichero , este seria el texto:

radiobutton=nuevo&TxtTipo=&TxtLocalidad=&TxtProvincia=&TxtDireccion=&TxtNume
ro=&TxtPortal=&TxtPlanta=&TxtPuerta=&TxtParaje=&textfield=&textfield4=&textf
ield6=&textfield2=&textfield5=&textfield7=&textfield3=&textfield8=&textfield
10=&textfield102=&textfield104=&textfield1019=&textfield105=&textfield1020=&
textfield106=&textfield1021=&textfield107=&textfield1022=&textfield108=&text
field1023=&textfield109=&textfield1024=&textfield1010=&textfield1025=&textfi
eld1011=&textfield1026=&textfield1012=&textfield1027=&textfield1013=&textfie
ld1028=&textfield1014=&textfield1029=&textfield1015=&textfield1030=&textfiel
d1016=&textfield1017=&textfield1018=&textfield102103=&textfield10210310=&tex
tfield102104=&textfield10210311=&textfield102105=&textfield10210312=&textfie
ld102106=&textfield10210313=&textfield102107=&textfield10210314=&textfield10
2108=&textfield10210315=&textfield1021032=&textfield10210316=&textfield10210
33=&textfield10210317=&textfield1021034=&textfield10210318=&textfield1021035
=&textfield1021036=&textfield1021037=&textfield1021038=&textfield1021039=&te
xtfield42=&textfield422=&textfield52=&textfield423=&textfield522=&textfield4
24=&textfield523=&textfield425=&textfield524=&textfield426=&TxtTipo2=&TxtLoc
alidad2=&TxtProvincia2=&TxtTipo22=&TxtProvincia22=&TxtTipo23=&TxtTipo222=&te
xtfield9=&textfield92=&textfield93=&textfield94=&TxtTipo24=&TxtTipo25=&TxtTi
po26=&Submit3=Aceptar_1



quiero separarlo por cada "&" que encuentre para darle el siguiente formato:


radiobutton=nuevo
txttipotxtlocalidad
Etc...

alguien me puede ayudar...
 

Leer las respuestas

#1 J. Carlos Herrrero
14/04/2005 - 21:22 | Informe spam
Hola:
Prueba esto

Dim lsCadena As String
Dim lsSplit As String()
lsCadena =
"radiobutton=nuevo&TxtTipo=&TxtLocalidad=&TxtProvincia=&TxtDireccion=&TxtNume"
lsSplit = lsCadena.Split("&")
MsgBox(CStr(UBound(lsSplit)))
Dim libucle As Integer
For libucle = 0 To UBound(lsSplit)
MsgBox(lsSplit(libucle))
Next

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"Franky" escribió en el mensaje
news:d3mdmv$2o8$
Buenos dias,
tengo el siguiente problema, necesito leer un fichero de texto que tiene
un
formato determinado para luego guardarlo en otro fichero con otro formato,
el problema es que al leer el fichero los parrafos son demasiado grandes y
me da error de longitud incorrecta...
como puedo leer ese fichero , este seria el texto:

radiobutton=nuevo&TxtTipo=&TxtLocalidad=&TxtProvincia=&TxtDireccion=&TxtNume
ro=&TxtPortal=&TxtPlanta=&TxtPuerta=&TxtParaje=&textfield=&textfield4=&textf
ield6=&textfield2=&textfield5=&textfield7=&textfield3=&textfield8=&textfield
10=&textfield102=&textfield104=&textfield1019=&textfield105=&textfield1020=&
textfield106=&textfield1021=&textfield107=&textfield1022=&textfield108=&text
field1023=&textfield109=&textfield1024=&textfield1010=&textfield1025=&textfi
eld1011=&textfield1026=&textfield1012=&textfield1027=&textfield1013=&textfie
ld1028=&textfield1014=&textfield1029=&textfield1015=&textfield1030=&textfiel
d1016=&textfield1017=&textfield1018=&textfield102103=&textfield10210310=&tex
tfield102104=&textfield10210311=&textfield102105=&textfield10210312=&textfie
ld102106=&textfield10210313=&textfield102107=&textfield10210314=&textfield10
2108=&textfield10210315=&textfield1021032=&textfield10210316=&textfield10210
33=&textfield10210317=&textfield1021034=&textfield10210318=&textfield1021035
=&textfield1021036=&textfield1021037=&textfield1021038=&textfield1021039=&te
xtfield42=&textfield422=&textfield52=&textfield423=&textfield522=&textfield4
24=&textfield523=&textfield425=&textfield524=&textfield426=&TxtTipo2=&TxtLoc
alidad2=&TxtProvincia2=&TxtTipo22=&TxtProvincia22=&TxtTipo23=&TxtTipo222=&te
xtfield9=&textfield92=&textfield93=&textfield94=&TxtTipo24=&TxtTipo25=&TxtTi
po26=&Submit3=Aceptar_1



quiero separarlo por cada "&" que encuentre para darle el siguiente
formato:


radiobutton=nuevo
txttipo> txtlocalidad>
Etc...

alguien me puede ayudar...



Preguntas similares