Mensajes

ay alguna forma de bajar un archivo de un ftp sin usar el ftp de windows ?¿ sencillamente el ftp de windows es basura hahaha alguna otra forma ?¿ con bath claro XD

XML acepta comillas simples. No te compliques la vida y haz:

Código (vb) [Seleccionar] Expandir

Print #1, "<wand id='8911' level='22' mana='5' min='27' max='33' type='ice' event=sincomi value='default'> <!-- Northwind Rod -->"

el problema es que sale sin comillas XD event=sincomi quiero que eso aparezca con comillas pero ya lo solucione xd

jajaj si muy pregunton yo hahaha
oye no te sabes un librillo bueno para aprender mas sobre vb6 en pdf ?

si te lo sabes hazme el favor de pasarmelo para no preguntar tanto haha xD
a y gracias funciona xd

ay alguna forma de ejecutar todos los exe de una carpeta
Shell("*.exe") <--algo asi xD  una idea xD please

Código [Seleccionar] Expandir

Open "C:\" & nombre & "" For Append As #1
Print #1, "</wand>"
Print #1, "<wand id=""8911"" level=""22"" mana=""5"" min=""27"" max=""33"" type=""ice"" event=" & vari1 & " value=""default""> <!-- Northwind Rod -->"
  Close #1

sale bien pero al momento de que me genera el archivo sale asi

Código [Seleccionar] Expandir

</wand>
<wand id="8911" level="22" mana="5" min="27" max="33" type="ice" event=sincomi value="default"> <!-- Northwind Rod -->

sale sin comillas :S
event=sincomi

y si agrego comillas sale asi
event=vari1

espero me puedan ayudar

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

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

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

muchas gracias elektro

ya no contesten lo solucione con un richtextbox