Estoy con un proyecto, a pesar de mi mano rota... (uso la izq {cruz), la cosa es que tengo una parte que te permite añadir palabras o texto a un .txt y me aparece así:
Pablabra1
Pablabra2
Pablabra3
Pablabra4
Pablabra5
...
Esta es la función:
Function Agregar(File As String, Texto As TextBox)
Dim Cadena As String
Open File For Input As #1
Do While Not EOF(1)
Line Input #1, Cadena
If Cadena = Texto Then
MsgBox ("Este Path ya está registrado"), vbInformation, ("Add Path")
End If
Loop
Close #1
Open File For Append As #1
Print #1,, Texto
Close #1
End Function
Luego un amigo me dijo que añadiese:
vbCrLf
Lo hice y me aparece así:
Palabra1
(Espcaios)
Palabra2
(Espcaios)
Palabra3
(Espcaios)
Palabra4
(Espcaios)
Palabra5
(Espcaios)
...
La función sería:
Function Agregar(File As String, Texto As TextBox)
Dim Cadena As String
Open File For Input As #1
Do While Not EOF(1)
Line Input #1, Cadena
If Cadena = Texto Then
MsgBox ("Este Path ya está registrado"), vbInformation, ("Add Path")
End If
Loop
Close #1
Open File For Append As #1
Print #1, , vbCrLf & Texto
Close #1
End Function
Y bueno me gustaría que me dijeseis como hago para que las palabras se me añadan así:
Palabra1
Palabra2
Palabra3
Palabra4
Palabra5
...
A ver si me podéis ayudar ê.ê
prueba con VbNewLine en vez de vbCrlf
Saludos.
La cosa es que no quiero que salgan los espacios :l
No veo que problema tienes, yo uso tu funcion dela siguiente manera:
Private Sub Form_Load()
Call Agregar("c:\hola.txt", "hola mundo!")
End Sub
Function Agregar(File As String, Texto As String)
Dim Cadena As String
Open File For Input As #1
Do While Not EOF(1)
Line Input #1, Cadena
If Cadena = Texto Then
MsgBox ("Este Path ya está registrado"), vbInformation, ("Add Path")
End If
Loop
Close #1
Open File For Append As #1
Print #1, , vbCrLf & Texto
Close #1
End Function
y me funciona correctamente sin generar espacio XD
PD: esto iria en Visual basic no en codigo abierto vb
salu2!
Cierro, ya resolví ^.^