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.
Cita de: Danyfirex en 17 Enero 2013, 01:52 AM
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
Cita de: Danyfirex en 17 Enero 2013, 02:30 AM
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