FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
ayuda con arvhivos de textos y arreglos en delphi
Hola mundo.! tengo un problemilla.! tengo esta cadena : < hola> <mundo> y quiero guardar "hola" en una variable y "mundo" en otra.! eliminando los delimitantes <>.! por favor ayudenme.!
|
#2
|
||||
|
||||
Hola twister y bienvenido a Club Delphi.
Llamada de ejemplo:
Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
ayudamee :S
bueno gracias!! pero no me funciono!! en realidad leo de un archivo de trexto esta cadena HOLA MUNDO <var1> <var2> necesito sacar var1 y var2 para utilizarlas dentro del programa... el q tu me enviastes lo use pero no me arroja nada!!
|
#4
|
|||
|
|||
...
mira esto es lo q utilizo para q me devuelva el valor,
procedure ExtraeCadena(cadena: string): string; begin result:=copy(cadena,pos('<',cadena)+1,pos('>',cadena)-pos('<',cadena)-1); end; pero solo lo hace para "var1" y no me trae "var2" puedes revisarlo a ver si se puede hacer de la misma forma para traer var2?? |
#5
|
||||
|
||||
Hola de nuevo.
El procedimiento que te puse funciona correctamente para la petición que hiciste en el primer mensaje quitando los símbolos < y > y almacenando en dos variables las dos cadenas que están separadas por un espacio. En el ejemplo de llamada apareció un ' ' y no '<hola> <mundo>' por un problema que provocan los símbolos '< >' dentro de las etiquetas [delphi] y [/delphi] . Si ponés el texto dentro de las comillas simples, funcionará. Te pongo otro ejemplo con una tercera variable que supuestamente tendría almacenada la cadena leida del archivo de texto:
El procedimiento sigue siendo el mismo. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 06-02-2011 a las 05:02:11. |
#6
|
|||
|
|||
o.o
no me funciona :S tal vez no entiedas lo q en realidad quiero hacer!! o.o
|
#7
|
|||
|
|||
o.o
podrias agregarme al msn para explicar bien!!
Última edición por ecfisa fecha: 06-02-2011 a las 05:14:18. Razón: Quitar dirección de correo privado. |
#8
|
||||
|
||||
Hola.
Hice la prueba y funciona correctamente de acuerdo a la condicion que expusiste: <cadena1> espacio <cadena2>. Para comprobarlo, copia y pega lo siguiente: Código:
procedure QuitarMayorMenor(const Value: string; var s1,s2: string); var i: Integer; begin s1:= ''; for i:= 1 to Length(Value) do if not(Value[i] in ['<', '>']) then s1:= s1 + Value[i]; s2:= Copy(s1, Pos(' ', s1)+1, MaxInt); Delete(s1, Pos(' ', s1), MaxInt); end; procedure TForm1.Button1Click(Sender: TObject); var Cad1,Cad2, st: string; begin st:= '<hola> <mundo>'; QuitarMayorMenor(st ,Cad1, Cad2); ShowMessage(Cad1+#10#13+Cad2); end; Nota: Si lees la guía de estilo , verás que dice: No solicites que te respondan por correo en privado. (Por lo que borro el mismo de tu mensaje anterior) Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 06-02-2011 a las 05:22:54. |
#9
|
|||
|
|||
o.o
hola
ups sorry no sabia!! xD bueno dejame probar ese para ver gracias!! |
#10
|
||||
|
||||
No hay problema twister, ya irás familiarizandote con el estilo y las etiquetas.
Cualquier problema que tengas, seguí presentándolo. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#11
|
|||
|
|||
o.o
ok esta bien!! bueno creo q no me explique y me enviaste unas soluciones a otro problema pero creo q si me dices como introducir cada palabra de la cadena q leo del archivo en un arreglo tambien solucionaria mi problema!! ejemplo
si tengo HOLA MUNDO <var1> <var2> entonces necesito q HOLA ESTE EN LA PRIEMRA POSICION DEL ARREGLO MUNDO en la segunda posicion <var1> en la tercera posicion!! <var2> en la cuarta posicion!! sin importar espacios entre las palanbras....... lo q en realidad necesito traer toda la linea del archivo para verificar su sintaxis y ver si esta bien escrita.... var1 y var2 son valores enteros q debo extraer para hacer operaciones en el programa... y disculpa la molestia |
#12
|
||||
|
||||
Cita:
A ver si de este modo te sirve:
Ejemplos de uso:
Otro ejemplo:
La función requiere que le envíes el nombre del archivo (Ruta+Nombre) y el delimitador que usará para distinguir una palabra de otra. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 06-02-2011 a las 06:59:10. |
#13
|
|||
|
|||
o.o
copie todo tal cual!! y bueno ya habia usado varias funciones pero no me sirven! :S me dicen q hay error indentifier expected but ':' found despues de la const: se q es algo con los 2 puntos pero cualquier funcion q pongo me da error :S
|
#14
|
||||
|
||||
Te pido mil disculpas twister, el error de tipeado es mio !!!!
Quitá los dos puntos luego de const. La línea tiene que quedar:
Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 06-02-2011 a las 08:06:16. |
#15
|
|||
|
|||
o.o
hola ecfisa como estas?
pudimos correr el codigo pero cuenta todas las palabras q hay en el arcihivo y en realidad no necesitamos eso!! solo necesito q guarde las palabras de la primera linea y despues para la segunda linea q empiece desde 0 otra vez el contador para guardar las palabras q hay en la segunda linea!!! ejm: si en la primera linea hay cuatro palabras el va a guardar esas palabras y necesitamos comparar cada una de las palabras con otras palabras q tengo. y el codigo q tu nos mandastes cuentas las palabras y las guarda pero si en la primera linea hay 4 palabras esta bien las cuenta, pero al bajar a la segundo linea empieza a contar desde el 4 para adelante. osea q si entre la primera y la sengunda linea hay 8 palabras el valor de [i] va a llegar hasta 8... ME EXPLICO??? |
#16
|
|||
|
|||
ayuda con arvhivos de textos y arreglos en delphi
hola alguien sabe de alguna funcion en delphi que pueda leer una linea desde un archivo de texto y guardar cada palabra en una posicion de un ARREGLO?? ojo es un arreglo no necesito listas!! las lineas en el arvhico pueden ser N lineas y cada linea puede tener N palabras. agradeceria su ayuda...
Última edición por twister fecha: 08-02-2011 a las 02:57:31. |
#17
|
||||
|
||||
Hola twister.
Por favor no repitas mensajes. Un mensaje tuyo con igual contenido estaba en el foro 'noticias' con el título ":(" que por otro lado, nada tiene que ver con tu consulta. Muchas gracias. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 08-02-2011 a las 03:25:54. |
#18
|
|||
|
|||
O.o
Es que no se como eliminarlo..!
|
#19
|
||||
|
||||
Hola tiwster.
No, no podés eliminarlo una vez enviado, no te preocupes ya irás manejando el tema. Sólo te lo hago presente para que lo tengas en cuenta en el futuro. Ahora a lo nuestro, no te sirvió el ejemplo con TStrings... Bueno, aca te hice un ejemplo con un arreglo y te agregué comentarios en las líneas como mejor pude:
Ejemplo de llamada:
No lo creo, pero por si tenés algún problema, te adjunto el ejemplo funcionando. Un saludo.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 01-08-2011 a las 10:02:56. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Probleas con los arreglos | edgwin | OOP | 1 | 27-08-2010 23:32:52 |
delphi y arreglos dinamicos | vroa74 | Varios | 3 | 24-02-2007 12:21:41 |
Ayuda con arreglos !! | Siegfried | Varios | 2 | 27-09-2006 20:43:53 |
AYUDA con arreglos | pecosita | C++ Builder | 1 | 18-09-2006 22:00:50 |
Arreglos | Lobo | Varios | 3 | 19-09-2003 00:09:19 |
|