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í:
Código: php
Esta es la función:
Código: vb
Luego un amigo me dijo que añadiese:
Código: php
Lo hice y me aparece así:
Código: php
La función sería:
Código: vb
Y bueno me gustaría que me dijeseis como hago para que las palabras se me añadan así:
Código: php
A ver si me podéis ayudar ê.ê
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 FunctionLuego un amigo me dijo que añadiese:
vbCrLfLo 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 FunctionY 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 ê.ê
