duda como posicionar texto?

[Sai-To]

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

[naderST]

Pues elminas las lineas... usa split.

[Sai-To]

sip pero como eligo las lineas? vbcrlF o como??

[naderST]

sip pero como eligo las lineas? vbcrlF o como??

Claro! vbCrLf

[Tughack]

Eliminar lineas con split??

Usa Replace.

Saludos

[naderST]

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 [Seleccionar] Expandir


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

[Sai-To]

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?

[Tughack]

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...

[naderST]

Usa Replace 0.o

Código [Seleccionar] Expandir


Option Explicit

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


[Sai-To]

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%