Acomodar en texbox
Hola mire tengo un lis así
version='2.0'
serie='Q'
folio='000683'
fecha='2010-09-27T16:49:50'
sello='/ModvtLqDDej8HOEoy9rK+tY='
noAprobacion='1'
anoAprobacion='2009'
tipoDeComprobante='ingreso'
formaDePago='Efectivo'
condicionesDePago='Una Sola Exibicion'
subTotal='2520'
descuento='0'
total='2923'
noCertificado='10001200000000022517'
certificado='
'>
<Emisor
rfc='ISP900909Q88'
nombre='Industrias del Sur Poniente, S.A. De C.V.'>
<DomicilioFiscal
calle='Alvaro Obregon'
noExterior='37'
noInterior='3'
colonia='Col. Roma Norte'
localidad='Mexico'
municipio='Cuauhtemoc'
estado='Distrito Federal'
pais='Mexico'
codigoPostal='06700'/>
<ExpedidoEn
calle='juan de dios'
noExterior='80'
noInterior='301'
colonia='obrera'
localidad='mexico'
municipio='Cuatemoc'
estado='distrito ffederal '
pais='mexico'
codigoPostal='03800'/>
</Emisor>
<Receptor
rfc='BBS090320MB9'
nombre='mi imagen' >
<Domicilio
calle='Soria'
noExterior='140'
noInterior='2'
colonia='Alamos'
localidad='Mexico'
municipio='Benito juares'
estado='Distrito federal'
pais='Mexico'
codigoPostal='03400'/>
</Receptor>
<Conceptos>
<Concepto
cantidad='45'
unidad='Serv'
descripcion='Manode obra'
valorUnitario='56'
importe='2520'/>
</Conceptos>
<Impuestos totalImpuestosTrasladados='403'>
<Traslados>
<Traslado impuesto = "IVA" tasa='16' importe='403'/>
</Traslados>
</Impuestos>
</Comprobante>
Y quiero llevar a texbox cada campo por el ejemplo llevar el nombre al campo nombre,
pero campos como nombre colonia dirección rfc se repiten y eso es lo que me causa conflictos, espero que me pueda ayudar gracias de ante mano
version='2.0'
serie='Q'
folio='000683'
fecha='2010-09-27T16:49:50'
sello='/ModvtLqDDej8HOEoy9rK+tY='
noAprobacion='1'
anoAprobacion='2009'
tipoDeComprobante='ingreso'
formaDePago='Efectivo'
condicionesDePago='Una Sola Exibicion'
subTotal='2520'
descuento='0'
total='2923'
noCertificado='10001200000000022517'
certificado='
'>
<Emisor
rfc='ISP900909Q88'
nombre='Industrias del Sur Poniente, S.A. De C.V.'>
<DomicilioFiscal
calle='Alvaro Obregon'
noExterior='37'
noInterior='3'
colonia='Col. Roma Norte'
localidad='Mexico'
municipio='Cuauhtemoc'
estado='Distrito Federal'
pais='Mexico'
codigoPostal='06700'/>
<ExpedidoEn
calle='juan de dios'
noExterior='80'
noInterior='301'
colonia='obrera'
localidad='mexico'
municipio='Cuatemoc'
estado='distrito ffederal '
pais='mexico'
codigoPostal='03800'/>
</Emisor>
<Receptor
rfc='BBS090320MB9'
nombre='mi imagen' >
<Domicilio
calle='Soria'
noExterior='140'
noInterior='2'
colonia='Alamos'
localidad='Mexico'
municipio='Benito juares'
estado='Distrito federal'
pais='Mexico'
codigoPostal='03400'/>
</Receptor>
<Conceptos>
<Concepto
cantidad='45'
unidad='Serv'
descripcion='Manode obra'
valorUnitario='56'
importe='2520'/>
</Conceptos>
<Impuestos totalImpuestosTrasladados='403'>
<Traslados>
<Traslado impuesto = "IVA" tasa='16' importe='403'/>
</Traslados>
</Impuestos>
</Comprobante>
Y quiero llevar a texbox cada campo por el ejemplo llevar el nombre al campo nombre,
pero campos como nombre colonia dirección rfc se repiten y eso es lo que me causa conflictos, espero que me pueda ayudar gracias de ante mano
Respuesta de junio0or
1
Pero una pregunta que es lo que me mandas es archivo html o que es lo que quieres hacer, ¿es un txt o que es? Es que la verdad no entiendo de donde vienen las fuentes
Saludos sime explicas mejor te ayudaría mejor !
Saludos sime explicas mejor te ayudaría mejor !
Le mande mi proyecto, y perdón se repitió la pregunta 2 veces no se por que
Jajajaja ok no te preocupes, lo revisare pero comenta nuevamente para que no se me olvide jajajaja !
Prometo revisarlo
Saludos ! Te lo mando a más tardar mañana !
Prometo revisarlo
Saludos ! Te lo mando a más tardar mañana !
JAJAJ le recuerdo para que me revise mi proyecto, jajaja, y aprovecho una pregunta cre que el código que tenga es epueda adactar par aque busqeu un apalabra o símbolo ejemplo tengo esto
<Conceptos>
<Concepto
cantidad='45'
unidad='SERV'
descripcion='MANODE OBRA'
valorUnitario='56'
importe='2520'/>
</Conceptos>
Esto e suna cadena en un campo en mi tabla quiero decirle al foxpro que encuentre <Conceptos> y que me odtenga todo lo que esta asta que encuentre </Conceptos>, ¿cre qué es epueda?
<Conceptos>
<Concepto
cantidad='45'
unidad='SERV'
descripcion='MANODE OBRA'
valorUnitario='56'
importe='2520'/>
</Conceptos>
Esto e suna cadena en un campo en mi tabla quiero decirle al foxpro que encuentre <Conceptos> y que me odtenga todo lo que esta asta que encuentre </Conceptos>, ¿cre qué es epueda?
Jajajaja ya lo vi,
pero no me ha salido todavía perame yo te lo mando !
pero no me ha salido todavía perame yo te lo mando !
Ok le agradezco la ayuda
¿Ya lo tienes?
¿O todavía no?
¿O todavía no?
No todavía no peor tengo este código
L=FILETOSTR('titulo.txt')&& Este es el archivo que guarda los datos contenidos entre '<Conceptos>' y '</Conceptos>'
A1=0&&variable que guarda la linea de donde se encuentra ubicado '<Conceptos>'
A2=0&&variable que guarda la linea de donde se encuentra ubicado '</Conceptos>'
FOR a=1 TO MEMLINES(L)
cCadena=MLINE(L,A)
IF ALLTRIM(Ccadena)='<Emisor'
A1=A+1
ENDIF
IF ALLTRIM(Ccadena)='</Emisor>'
A2=A-1
ENDIF
IF A1>0 .AND. A2>0
FOR P=1 TO (A2+1)-A1
cCadena=MLINE(l,(A1-1)+P)
THISFORM.List2.AddItem(CHRTRAN(cCadena,'/>',''))
ExtraesNombre=STREXTRACT(cCadena,"nombre='", "'")
thisform.text10.Value = ExtraesNombre
ENDFOR
RETURN
Endif
¿ENDFOR
pero no puedo hacer que aparezca el nombre con el extrae pero si me lo proyecto en el list me puede ayudar con esto?
L=FILETOSTR('titulo.txt')&& Este es el archivo que guarda los datos contenidos entre '<Conceptos>' y '</Conceptos>'
A1=0&&variable que guarda la linea de donde se encuentra ubicado '<Conceptos>'
A2=0&&variable que guarda la linea de donde se encuentra ubicado '</Conceptos>'
FOR a=1 TO MEMLINES(L)
cCadena=MLINE(L,A)
IF ALLTRIM(Ccadena)='<Emisor'
A1=A+1
ENDIF
IF ALLTRIM(Ccadena)='</Emisor>'
A2=A-1
ENDIF
IF A1>0 .AND. A2>0
FOR P=1 TO (A2+1)-A1
cCadena=MLINE(l,(A1-1)+P)
THISFORM.List2.AddItem(CHRTRAN(cCadena,'/>',''))
ExtraesNombre=STREXTRACT(cCadena,"nombre='", "'")
thisform.text10.Value = ExtraesNombre
ENDFOR
RETURN
Endif
¿ENDFOR
pero no puedo hacer que aparezca el nombre con el extrae pero si me lo proyecto en el list me puede ayudar con esto?
Bueno creo que no va mal, pero pues primero mande messagebox("entra") para ver si tiene datos su lista, de lo contrario son los datos que están malos yo aria algo como
Messagebox(cCadena)
despues de cCadena=MLINE(l,(A1-1)+P)
Messagebox(cCadena)
despues de cCadena=MLINE(l,(A1-1)+P)
Pero solo quiero que me lleve el nombre, ¿dónde elo extraigo al textbox pero no lo hace ai que esta mal?
Creo que es esta instrucción debería de ser !
ExtraesNombre=STREXTRACT(cCadena,"nombre='", "'")
ExtraesNombre = substring(cCadena , atc("nombre=" , cCadena , 0) , len(cCadena) )
Espero que te salga saludos ! O dime que viene en cCadena!
ExtraesNombre=STREXTRACT(cCadena,"nombre='", "'")
ExtraesNombre = substring(cCadena , atc("nombre=" , cCadena , 0) , len(cCadena) )
Espero que te salga saludos ! O dime que viene en cCadena!
Hola me dmemarca un error en esta linea
ExtraesNombre = substring(cCadena , atc("nombre=" , cCadena , 0) , len(cCadena) )
Gracias y saludos¡
ExtraesNombre = substring(cCadena , atc("nombre=" , cCadena , 0) , len(cCadena) )
Gracias y saludos¡
HOla y alo pude acomodar pero no hace nada le dejo el código
L=FILETOSTR('titulo.txt')&& Este es el archivo que guarda los datos contenidos entre '<Conceptos>' y '</Conceptos>'
A1=0&&variable que guarda la linea de donde se encuentra ubicado '<Conceptos>'
A2=0&&variable que guarda la linea de donde se encuentra ubicado '</Conceptos>'
FOR a=1 TO MEMLINES(L)
cCadena=MLINE(L,A)
IF ALLTRIM(Ccadena)='<Emisor'
A1=A+1
ENDIF
IF ALLTRIM(Ccadena)='</Emisor>'
A2=A-1
ENDIF
IF A1>0 .AND. A2>0
FOR P=1 TO (A2+1)-A1
cCadena=MLINE(l,(A1-1)+P)
THISFORM.List2.AddItem(CHRTRAN(cCadena,'/>',''))
*thisform.text10.Value = SUBSTR(cCadena,atc("nombre='",cCadena),len(cCadena))
ENDFOR
RETURN
ENDIF
ENDFOR
*ExtraesNombre=STREXTRACT(cCadena,"nombre='", "'")
*ExtraesNombre=SUBSTR(cCadena,atc("nombre='",cCadena),len(cCadena))
thisform.text10.Value = SUBSTR(cCadena,atc("nombre='",cCadena),len(cCadena))
No realiza nada el código saludos
L=FILETOSTR('titulo.txt')&& Este es el archivo que guarda los datos contenidos entre '<Conceptos>' y '</Conceptos>'
A1=0&&variable que guarda la linea de donde se encuentra ubicado '<Conceptos>'
A2=0&&variable que guarda la linea de donde se encuentra ubicado '</Conceptos>'
FOR a=1 TO MEMLINES(L)
cCadena=MLINE(L,A)
IF ALLTRIM(Ccadena)='<Emisor'
A1=A+1
ENDIF
IF ALLTRIM(Ccadena)='</Emisor>'
A2=A-1
ENDIF
IF A1>0 .AND. A2>0
FOR P=1 TO (A2+1)-A1
cCadena=MLINE(l,(A1-1)+P)
THISFORM.List2.AddItem(CHRTRAN(cCadena,'/>',''))
*thisform.text10.Value = SUBSTR(cCadena,atc("nombre='",cCadena),len(cCadena))
ENDFOR
RETURN
ENDIF
ENDFOR
*ExtraesNombre=STREXTRACT(cCadena,"nombre='", "'")
*ExtraesNombre=SUBSTR(cCadena,atc("nombre='",cCadena),len(cCadena))
thisform.text10.Value = SUBSTR(cCadena,atc("nombre='",cCadena),len(cCadena))
No realiza nada el código saludos
Bueno no realiza nada, si ya vi por que, ya que no se tu estructura por ejemplo lo que me dices que haces es crear un archivo txt, en el que quieres meter y dime como esta la list por ejemplo que tiene la list para que la pueda meter, creo que te estas haciendo mucho relajo, y que seria más corto, si quieres dime como esta y te ayudo más rapido ! o agrégame [email protected]
Ok, y ale envíe la invitación, vera el código crea una cadena, y se me ocurrió usar el STREXTRAC para extraer cada elemento de esa cadena pero asta ora no a funcionado, si es mucho rollo pero ciento que sera un poco más exacto
¿No me ha llegado nada si quiere envíeme su correo?
Mi correo es [email protected] gracias por su tiempo
Listo solo acepte!
