dll til at læse fra tekstfil

Der er flg.

Open \"dinfil.txt\" For Input As #1
  strContent = Input(Lof(1), 1) \' Læs indholdet
Close #1

strContent indeholder nu al teksten

Der skal ikke bruges nogle DLL\'er for læsning af en fil .. heller ikke for at skrive til den for den sags skyld

skal dert ikke også skrives print... for at den hentede tekst skrives med i mailen?

Hmm .. jeg er ikke helt med tror jeg ..


det jeg har skrevet LÆSER en tekst fil\'s indhold ind i variablen strContent.

okay jeg er ikke helt vågen, du får dine point. Du har vel ikke noget kode som kan bruges til at finde filen så man ikke behøver at skrive hele stigen til der hvor filen ligger. Ellers tak for hjælpen (08

Desværre så kan man ikke bare \"sådan lige\" finde filen, men hvis den f.eks. ligger der hvor dit program ligger så kan du skrive

Open app.Path & \"\\dinfil.txt\" For ..

Hej tdaugaard

der er stadig et lille problem, med hensyn til at udskrive filen, hele filen udskrives i en linie?

hmm .. så er det fordi at der ikke er nogle linieskift i filen.. men det er hurtigt fixet..

Open \"dinfil.txt\" For Input As #1
  Do
    Line Input #1, strLine
    strContent = strContent & strLine & vbCrLf
  Loop Until Eof(1)
Close #1

prøv at bruge den .. nu skulle der være linieskift efter hver linie.

Private Sub Command1_Click()
Open App.Path & \"\\Disclaimer.txt\" For Input As #1
  Do
    Line Input #1, strLine
    strContent = strContent & strLine & vbCrLf
  Loop Until EOF(1)
Close #1
Text1.Text = strContent
End Sub

***************DISCLAIMER***************
De informatie in deze e-mail is

nåh her virker det, i tekstboxen i mit testprojekt udskrives bare linjeskift tegnet?

ahha .. du skal sætte tekstboxens \"MultiLine\" til True .. først .. og SÅ kan du bruge mit første svar:

Open \"dinfil.txt\" For Input As #1
  strContent = Input(Lof(1), 1) \' Læs indholdet
Close #1

Jeps så virker det som det skal, du får lige 5 bonuspoint

*S* helt oki .. :-) siger aldrig nej til point :-)