modificar xml desde vb6

[asdexiva]

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




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

[Danyfirex]

Puedes pegar la cadena que tiene la imagen.

y te ayudo.

[asdexiva]

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

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

[Danyfirex]

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

Código (vb) [Seleccionar] Expandir

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

[asdexiva]

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

Código (vb) [Seleccionar] Expandir

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

[Danyfirex]

revisa el código. y aprende.

comillas mmmm.

Código (vb) [Seleccionar] Expandir

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


saludos