 Autor
|
Tema: modificar xml desde vb6 (Leído 3,185 veces)
|
asdexiva
 Desconectado
Mensajes: 217
|
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
|
|
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
Puedes pegar la cadena que tiene la imagen.
y te ayudo.
|
|
|
|
|
En línea
|
|
|
|
asdexiva
Desconectado
Mensajes: 217
|
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
|
|
|
|
« Última modificación: 17 Enero 2013, 02:12 am por asdexiva »
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
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 |
|
|
|
|
En línea
|
|
|
|
asdexiva
Desconectado
Mensajes: 217
|
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
|
|
|
|
|
En línea
|
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
revisa el código. y aprende. comillas mmmm. Dim cadena As String cadena = """" & "print #1" & """"
saludos |
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Modificar exe desde VB
Programación Visual Basic
|
redired
|
2
|
1,792
|
30 Diciembre 2005, 21:57 pm
por Slasher-K
|
|
|
|
Modificar acceso directo desde vb
Programación Visual Basic
|
4D1cTo
|
4
|
4,754
|
20 Junio 2006, 20:35 pm
por _Sergi_
|
|
|
|
Modificar .RES desde Builder
« 1 2 »
Programación Visual Basic
|
illuminat3d
|
12
|
3,819
|
13 Octubre 2008, 17:10 pm
por & eDu &
|
|
|
|
Modificar MDI desde un Child (vb.net 2003)
.NET (C#, VB.NET, ASP)
|
Dreamcacher
|
2
|
2,805
|
25 Enero 2012, 18:08 pm
por Dreamcacher
|
|
|
|
Modificar tablas desde php
Desarrollo Web
|
egiptoelcairo
|
2
|
2,304
|
1 Junio 2012, 18:33 pm
por egiptoelcairo
|
 |
