Sai-To
 Desconectado
Mensajes: 181
|
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
|
|
|
|
|
En línea
|
|
|
|
naderST
Desconectado
Mensajes: 237
|
Pues elminas las lineas... usa split.
|
|
|
|
|
En línea
|
|
|
|
Sai-To
Desconectado
Mensajes: 181
|
sip pero como eligo las lineas? vbcrlF o como??
|
|
|
|
|
En línea
|
|
|
|
naderST
Desconectado
Mensajes: 237
|
sip pero como eligo las lineas? vbcrlF o como??
Claro! vbCrLf |
|
|
|
|
En línea
|
|
|
|
Tughack
Desconectado
Mensajes: 498
|
Eliminar lineas con split??
Usa Replace.
Saludos
|
|
|
|
|
En línea
|
|
|
|
naderST
Desconectado
Mensajes: 237
|
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 |
|
|
|
|
En línea
|
|
|
|
Sai-To
Desconectado
Mensajes: 181
|
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?
|
|
|
|
|
En línea
|
|
|
|
Tughack
Desconectado
Mensajes: 498
|
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... |
|
|
|
|
En línea
|
|
|
|
naderST
Desconectado
Mensajes: 237
|
Usa Replace 0.o Option Explicit
Private Sub Form_Load()
MsgBox Replace(" %var1% %var2%", " ", "")
End Sub
|
|
|
|
|
En línea
|
|
|
|
Sai-To
Desconectado
Mensajes: 181
|
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%
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
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. |
|
|
|
|
En línea
|
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
|
|
|
cΔssiΔnі
Desconectado
Mensajes: 493
|
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, " ", "") |
|
|
|
« Última modificación: 20 Mayo 2008, 16:31 por cΔssiΔnі »
|
En línea
|
|
|
|
®®
Colaborador
Desconectado
Mensajes: 5.132
|
usa join y te comes menos la cabeza
|
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 243
Se siente observado ¬¬'
|
Para quitar espacios envés de usar Replace usar Trim  |
|
|
|
|
En línea
|
|
|
|
naderST
Desconectado
Mensajes: 237
|
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? |
|
|
|
|
En línea
|
|
|
|
|
Autor
