Abir un texto en un textbox?

Iniciado por kuki06, 27 Abril 2006, 03:52 AM

0 Miembros y 1 Visitante están viendo este tema.

kuki06

Hola gente, estaba buscando algun code para abrir un archivo .txt en un textobox..

Saludos!
Kuki06

.:CorTeX:.

#1
Busca!!


Cuantas veces se ha respondido esto?

Dim file_data$
Open "c:\archivo.txt" for append as #1
While NOT EOF(1)
text1.text=text1.text & file_data$ & vbnewline
Wend
Close #1


Creo que esta malo xD
Orgullosamente Colombiano



slipknot-hack

Pues yo he usado este code mira:


Private Sub Command1_Click()
    Dim file As String
    Dim Msg As String
   
    Dim fileno As Integer
    Dim i As Integer
   
    Dim t(10000000) As Byte
   
    file = "C:\Archivo.txt"
    fileno = FreeFile()
   
    Open file For Binary As fileno
        For i = 1 To FileLen(file)
            Get fileno, i, t(i)
            Msg = Msg + Chr(t(i))
        Next
    Close fileno
   
    Text1.Text = Msg
End Sub


Code de: ranefi

Pruevalo a ver este si Funciona, yo lo he provado ya :P

Saludos

Slipknot xD

kuki06

Gracias ranefi y a ti slipknot por hacerme llegar el code

Anda 100% bien.. ;)