[SOLUCIONADO] Problema con función...

Iniciado por C1n0X, Agosto 30, 2010, 09:43:09 PM

Tema anterior - Siguiente tema

0 Miembros y 2 Visitantes están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario
Agosto 30, 2010, 09:43:09 PM Ultima modificación: Mayo 12, 2014, 03:29:51 PM por Expermicid
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
                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: php
vbCrLf


Lo hice y me aparece así:
Código: php
                   
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: php
Palabra1
Palabra2
Palabra3
Palabra4
Palabra5
...


A ver si me podéis ayudar ê.ê
Agosto 30, 2010, 10:59:16 PM #1
prueba con VbNewLine en vez de vbCrlf

Saludos.







No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Agosto 31, 2010, 05:49:05 AM #2
La cosa es que no quiero que salgan los espacios :l
Agosto 31, 2010, 06:59:26 AM #3
No veo que problema tienes, yo uso tu funcion dela siguiente manera:

Código: php
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!
Agosto 31, 2010, 08:58:07 AM #4
Cierro, ya resolví ^.^
Imprimir
Ir Arriba Páginas1
Acciones del Usuario