Foros del Web » Programando para Internet » ASP Clásico »

Manejo de Archivos con ASP

Estas en el tema de Manejo de Archivos con ASP en el foro de ASP Clásico en Foros del Web. Hola a todos, tengo un problema grande y me gustaria que me ayudaran en lo mas posible ...., les explico. Tengo que generar un menu ...
  #1 (permalink)  
Antiguo 21/02/2005, 15:18
 
Fecha de Ingreso: febrero-2002
Mensajes: 157
Antigüedad: 22 años, 3 meses
Puntos: 0
Manejo de Archivos con ASP

Hola a todos, tengo un problema grande y me gustaria que me ayudaran en lo mas posible ...., les explico.

Tengo que generar un menu dinamico para un sitio, pero no puedo trabajar con BD, por lo que tengo que trabajar con archivos. La verdad es que nunca he trabajado con archivos y nose como hacerlo para leer ciertas cosas del archivo(lo que necesite y no todo el archivo), por lo cual he pensado en colocar marcas dentro del archivo para saber lo que quiero rescatar. Pero eso nose como hacerlo, asi que si tienen por ahi un ejemplito o algun link que me ayude en todo este problema se los agradesco mucho de antemano.
  #2 (permalink)  
Antiguo 21/02/2005, 20:12
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 9 meses
Puntos: 16
una sola palabra


XML
  #3 (permalink)  
Antiguo 22/02/2005, 06:19
 
Fecha de Ingreso: febrero-2002
Mensajes: 157
Antigüedad: 22 años, 3 meses
Puntos: 0
ok, pero necesito algo mas como para poder empezar algo, ya que decir XML es muy amplio y yo necestio algo mas especifico.
  #4 (permalink)  
Antiguo 22/02/2005, 08:24
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 21 años, 9 meses
Puntos: 16
Exclamación

checa esto. estudialo. lo deje lo mas claro posible.

Código:
Function recuperaDato(Posicion,TAG)
    Dim DataField
    On Error Resume Next
    Set DataField = Posicion.getElementsByTagName(TAG)
    recuperaDato = DataField.Item(0).firstChild.nodeValue
    If Err.Number <> 0 Then
        recuperaDato = FALSE
    End If
    Err.Clear
    On Error GoTo 0
    Set DataField = Nothing
End Function

sub principal(xml)
	Set XmlDom = Server.CreateObject("MSXML2.DOMDocument")
	XmlDom.loadXml(XML)
	set xRow = XmlDom.getElementsByTagName("registro_usuario")

	for xCount = 0 to xRow.length -1
		Response.Write "Nombre Usuario N°" & xCount & recuperaDato(xRow.item(xCount),"nombre") & "<br>"
		Response.Write "Apellido Usuario N°" & xCount & recuperaDato(xRow.item(xCount),"apellido") & "<br>"
	next

	Set xRow   = nothing			
	Set XmlDom = nothing
end sub


xml	=   "<raiz>"&_	
		"<registro_usuario>" &_
		"<nombre>Alejandro</nombre>" &_
		"<apellido>Salgado</apellido>"&_
		"</registro_usuario>"&_
		"<registro_usuario>"&_
		"<nombre>Luis</nombre>"&_
		"<apellido>Gomez</apellido>"&_
		"</registro_usuario>"&_
		"<registro_usuario>"&_
		"<nombre></nombre>"&_
		"<apellido></apellido>"&_
		"</registro_usuario>"&_
		"</raiz>"

call principal(xml)
esta llegar y ejecutar
  #5 (permalink)  
Antiguo 22/02/2005, 10:36
 
Fecha de Ingreso: febrero-2002
Mensajes: 157
Antigüedad: 22 años, 3 meses
Puntos: 0
Gracias, lo voy a probar y te comento como me fue.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:05.