duda como posicionar texto?

[seba123neo]

vos queres volver a escribir en el archivo poniendolo todo junto al texto?? fijate algo asi.

Código [Seleccionar] Expandir

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.

[cassiani]

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


Cadena = Replace(Texto, vbCrLf, "")
Cadena = Replace(Cadena, " ", "")

[byebye]

usa join y te comes menos la cabeza

[Karcrack]

Para quitar espacios envés de usar Replace usar Trim

[naderST]

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?

[byebye]

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.