Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Sai-To en 19 Mayo 2008, 21:43 pm


Título: duda como posicionar texto?
Publicado por: Sai-To en 19 Mayo 2008, 21:43 pm
bueno esta es mi duda imaginemos que yo tengo un texto con este codigo (.txt)

%var1%
%var2%
%var3%
%var4%
%var5%
%var6%
%var7%
%var8%
%var9%

y quiero abrir ese texto y cambiar todo para que me quede

%var1%%var2%%var3%%var4%%var5%%var6%%var7%%var8%%var9%

como lo puedo hacer?

Grax

Título: Re: duda como posicionar texto?
Publicado por: naderST en 19 Mayo 2008, 21:50 pm
Pues elminas las lineas... usa split.

Título: Re: duda como posicionar texto?
Publicado por: Sai-To en 19 Mayo 2008, 21:52 pm
sip pero como eligo las lineas? vbcrlF o como??

Título: Re: duda como posicionar texto?
Publicado por: naderST en 19 Mayo 2008, 21:53 pm
Cita de: brache en 19 Mayo 2008, 21:52 pm
sip pero como eligo las lineas? vbcrlF o como??

Claro! vbCrLf

Título: Re: duda como posicionar texto?
Publicado por: Tughack en 19 Mayo 2008, 22:06 pm
Eliminar lineas con split??

Usa Replace.

Saludos

Título: Re: duda como posicionar texto?
Publicado por: naderST en 19 Mayo 2008, 22:11 pm
Cita de: Tughack en 19 Mayo 2008, 22:06 pm
Eliminar lineas con split??

Usa Replace.

Saludos

Bueno no es eliminar las lineas con split sino usar split para poder elminarlas mira como digo yo pero se me habia olvidado la funcion replace XDDD

Código:
Option Explicit

Private Sub Form_Load()
    Dim Archivo As String
    Dim ArchivoEnLinea As String
    Dim ArchivoPorParte As Variant
    Dim i As Integer
    
    Open "C:\wtf.txt" For Input As #1
        Archivo = Input(LOF(1), #1)
    Close #1
    
    ArchivoPorParte = Split(Archivo, vbCrLf)
    
    For i = 0 To UBound(ArchivoPorParte)
        ArchivoEnLinea = ArchivoEnLinea & ArchivoPorParte(i)
    Next i
    
    MsgBox ArchivoEnLinea
End Sub

Usa replace sorry se me habia olvidado completamente... xD

Título: Re: duda como posicionar texto?
Publicado por: Sai-To en 20 Mayo 2008, 04:01 am
hola jej grax por la ayuda pero me ha surgido una nueva duda y esta creo que si es dificil!
si tengo esto en un .txt y desde mi programa quiero abrirlo y quitarle todos los espacios para que quede junto como lo hari sabiendo que en el texto tengo esto:

               %var1%               %var2%               %var3%               %var4%               %var5%               %var6%

como hago apra quitarle los espacion y que quede todo junto?

Título: Re: duda como posicionar texto?
Publicado por: Tughack en 20 Mayo 2008, 04:06 am
Cita de: brache en 20 Mayo 2008, 04:01 am
hola jej grax por la ayuda pero me ha surgido una nueva duda y esta creo que si es dificil!
si tengo esto en un .txt y desde mi programa quiero abrirlo y quitarle todos los espacios para que quede junto como lo hari sabiendo que en el texto tengo esto:

               %var1%               %var2%               %var3%               %var4%               %var5%               %var6%

como hago apra quitarle los espacion y que quede todo junto?

Creo k no has entiendido como funciona el Replace...

Título: Re: duda como posicionar texto?
Publicado por: naderST en 20 Mayo 2008, 04:16 am
Usa Replace 0.o

Código:
Option Explicit

Private Sub Form_Load()
    MsgBox Replace("               %var1%               %var2%", " ", "")
End Sub

Título: Re: duda como posicionar texto?
Publicado por: Sai-To en 20 Mayo 2008, 05:17 am
EXACTO, si se para que sirve peor a MI no me funciona de la manera esta:

Open app.path & "\de.txt" for input as #1
dim todo as string
todo = Input(LOF(1), #1)
close #1

Replace(todo, " ","")

Open app.path & "\d.txt" for Output as #1
print #1, , todo
close #1

ese coe no me sirve sabien que el de.txt tiene esto:


               %var1%               %var2%               %var3%               %var4%               %var5%               %var6%

Título: Re: duda como posicionar texto?
Publicado por: seba123neo en 20 Mayo 2008, 05:57 am
vos queres volver a escribir en el archivo poniendolo todo junto al texto?? fijate algo asi.

Código:
Private Sub Form_Load()
Dim LaReemplazada As String
Open "c:\de.txt" For Input As #1
Dim todo As String
todo = Input(LOF(1), #1)
Close #1
LaReemplazada = Replace(todo, " ", "")
Open "c:\de.txt" For Output As #1
Print #1, LaReemplazada
Close #1
End Sub

saludos.

Título: Re: duda como posicionar texto?
Publicado por: cassiani en 20 Mayo 2008, 16:28 pm
Creo que para lo que brache quiere, es necesario el uso de dos replace, uno para que elimine los espacios en blanco y otro para que elimine los salto de linea, ya que son 2 cosas totalmente diferente:

Código
  1. Cadena = Replace(Texto, vbCrLf, "")
  2. Cadena = Replace(Cadena, " ", "")

Título: Re: duda como posicionar texto?
Publicado por: byebye en 22 Mayo 2008, 15:20 pm
usa join y te comes menos la cabeza

Título: Re: duda como posicionar texto?
Publicado por: Karcrack en 22 Mayo 2008, 15:26 pm
Para quitar espacios envés de usar Replace usar Trim ;)

Título: Re: duda como posicionar texto?
Publicado por: naderST en 23 Mayo 2008, 01:37 am
Cita de: Karcrack en 22 Mayo 2008, 15:26 pm
Para quitar espacios envés de usar Replace usar Trim ;)

No creo k sea la solucion en este caso porque tengo entendi que trim solo elimina los espacios de los lados y no los del centro o me equivoco?

Título: Re: duda como posicionar texto?
Publicado por: byebye en 23 Mayo 2008, 01:49 am
repito. join:

join(array,delimitador)

join(array,"") = resultado sin espacios

join(array," ") = resultado con espacios

join(array,"#") = resultado con # de separador (str1#str2.... etc)

..... etc etc.


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines