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
Pues elminas las lineas... usa split.
sip pero como eligo las lineas? vbcrlF o como??
Cita de: brache en 19 Mayo 2008, 21:52 PM
sip pero como eligo las lineas? vbcrlF o como??
Claro! vbCrLf
Eliminar lineas con split??
Usa Replace.
Saludos
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
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
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?
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...
Usa Replace 0.o
Option Explicit
Private Sub Form_Load()
MsgBox Replace(" %var1% %var2%", " ", "")
End Sub
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%
vos queres volver a escribir en el archivo poniendolo todo junto al texto?? fijate algo asi.
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.
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:
Cadena = Replace(Texto, vbCrLf, "")
Cadena = Replace(Cadena, " ", "")
usa join y te comes menos la cabeza
Para quitar espacios envés de usar Replace usar Trim ;)
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?
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.