[SOLUCIONADO] Problema con función...

C1n0X · Agosto 30, 2010, 09:43:09 PM

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: text

                Pablabra1
                Pablabra2
                Pablabra3
                Pablabra4
                Pablabra5
                ...

Esta es la función:

Código: vb

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:

Código: text

vbCrLf

Lo hice y me aparece así:

Código: text

                   
Palabra1
                          (Espcaios)
Palabra2
                          (Espcaios)
Palabra3
                          (Espcaios)
Palabra4
                          (Espcaios)
Palabra5
                          (Espcaios)
...

La función sería:

Código: vb

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í:

Código: text

Palabra1
Palabra2
Palabra3
Palabra4
Palabra5
...

A ver si me podéis ayudar ê.ê

Once · Agosto 30, 2010, 10:59:16 PM

prueba con VbNewLine en vez de vbCrlf

Saludos.

C1n0X · Agosto 31, 2010, 05:49:05 AM

La cosa es que no quiero que salgan los espacios :l

Juan · Agosto 31, 2010, 06:59:26 AM

No veo que problema tienes, yo uso tu funcion dela siguiente manera:

Código: text

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!

C1n0X · Agosto 31, 2010, 08:58:07 AM

Cierro, ya resolví ^.^

[SOLUCIONADO] Problema con función...

C1n0X

Agosto 30, 2010, 09:43:09 PM Ultima modificación: Mayo 12, 2014, 03:29:51 PM por Expermicid

Once

Agosto 30, 2010, 10:59:16 PM #1

C1n0X

Agosto 31, 2010, 05:49:05 AM #2

Juan

Agosto 31, 2010, 06:59:26 AM #3

C1n0X

Agosto 31, 2010, 08:58:07 AM #4