Foro de elhacker.net

tengo una idea de hacer una aplicacion para editar un xml pero no puedo comprender esto

miren quiero poner varios texbox  estos son los nomrbes
nombre

itemi id

lvl

mana

min

maximo

lo que queiero que mediante el texbox se pueda moficar las partes del xml con esos nombres


(http://i45.tinypic.com/2w656vm.jpg)

y otra cosa como hacer que el archivo xml aparezca en un texbox al momento de abrirlo espero me puedan comprender XD

Puedes pegar la cadena que tiene la imagen.

y te ayudo.

<!-- Underworld Rod -->
   <vocation id="2"/>
   </wand>
   <wand id="8910" level="42" mana="13" min="1000" max="1500" type="death" event="function" value="default">
      <vocation id="2"/>

viene siendo lo mismo con otros nombres :D

una dudila como le ago para que en un print #1 aparescan comillas en algo declarado por mi
event= ---> repararfu <--- eso es lo declarado por mi al momento de escribir en texbox sale bien pero quiero que aparezca con comillas no se las quiero agregar del texbox me podrias decir como mas o menos xD

bueno ahí te hice una cagada de función jajaja.

Private Sub Command1_Click()
Text1.Text = (Remplazar(Text1.Text, "mana", 20))
Text1.Text = (Remplazar(Text1.Text, "max", 20))
Text1.Text = (Remplazar(Text1.Text, "min", 20))
Text1.Text = (Remplazar(Text1.Text, "id", 20))
Text1.Text = (Remplazar(Text1.Text, "level", 20))
End Sub
 
Function Remplazar(texto As String, parm As String, valor As String) As String
Dim P1, P2, P3 As Integer
Dim str, find, final As String
str = """"
P1 = InStr(texto, (parm))
P2 = InStr(P1, texto, str)
P3 = InStr(P2 + 1, texto, str)
find = Mid(texto, P2 + 1, P3 - P2 - 1)
final = Replace(texto, find, valor, 1, 1)
Remplazar = final
End Function
 

saludos

llamada o procedimiento no validos alguna idea ? xD

si pudieras responderme la manera de agregar comillas a una variable xD

revisa el código. y aprende.

comillas mmmm.

Dim cadena As String
cadena = """" & "print #1" & """"

saludos