At åbne en fil med knap

Det haster faktisk lidt.... måske.....

For at læse alle linier af tekstfilen ind i et array.

Således at MinString(0) indeholder første linie,
MinString(1) indeholder næste linie o.s.v.


Dim FilNummer as Integer
  Dim MinString() as String
  Dim intcount as integer
  Filnummer = FreeFile
  Open "C:\Min_fil.txt" For Input As #Filnummer
  Do While Not EOF(Filnummer)
    Line Input #Filnummer, MinString(intcount)
    intcount = intcount+1
  Loop
  Close #Filnummer

Et godt trix må være at søge her på siden. Mange spørgsmål er vist besvaret en del gange i forvejen.

ja - og åbne/skrive til txt-filer er der ca. 1000 besvarede spørgsmål omkring - sådan cirka ;o)

Hvis du direkte vil åbne den, skal du bruge shell.

Eks.:

Private Sub Command1_Click()
Shell "C:/TestTekst.txt"
End sub

Eller:

Private Sub Command1_Click()
Shell App.Path & "\TestTekst.txt"
End sub

Det sidse svarer til at den åbner TestTekst.txt fra den mappe programmet ligger i...

hmm...

har prøvet alle eksemplerne, men jeg synes ikke at der er nogle der virker.

Det jeg vil er at når jeg trykker på min command et så skal notepad åbnes og man skal kunne se filen...

den der med shell, tror jeg er god, men den virker bare ikke... :o(

Hvis ikke notepad er assiosieret med *.txt-filer, er det naturligvis ikke notepad der åbnes. Find stien til notepad på din PC, og brug følgende kommando:

shell "c:\winnt\system32\notepad.exe c:\minfil.txt"

PS: nu skriver du at spørgsmålet næsten giver sig selv med overskriften - men hvis du bemærker det, har du fået mange svar omkring du åbner en txt-fil med VB, så måske skulle du have skrevet: "Hvordan får jeg åbnet en txt-fil I NOTEPAD ved at trykkepå en knap i VB?" - eller noget i den retning :o)

jeg fatter ikk en skid!!! jeg kan ikke få nogte som helst til at virke...!!!

Find stien til notepad.

Søg på notepad.exe, og find ud af hvor filen ligger. Den ligger et sted i din systemmappe.

Når du har stien, skriv inde i vb:

shell "blablabla\notepad.exe c:\minfil.txt"

hvor du retter blablabla til stien til notepad, som måske er c:\windows\system32, måske c:\winnt\system32 eller noget tilsvarende.

Det kræver at du kan finde ud af at starte stifinderen og søge efter en fil :o)

okey... den her linie

Shell "c:\winnt\notepad.exe c:\resultater.txt"

den åbner vist en fil, men det åbner ikke den fil resultater.txt, der står i hvert fald ikke noget med min textbox... :o(

eller hvordan kan jeg med command1 åbne den i en textbox??

"Den åbner vist en fil..."

øhhh - åbner den en fil, eller gør den ikke?

Får du overhovedet åbnet notepad?

Prøv at tjek om c:\resultater.txt findes - åben den på normal vis, og se om der står noget i den. Hvis resultater.txt findes, og der står noget i den, skal det virke...

sandahl - prøv lige inden du går videre at finde ud af hvad du vil. Skal du

  1) åbne en tekstfil i notepad
  2) Læse indholdet af en textfil ind i en textbox i VB?

1 eller 2?

Mht. 1, skal du bruge Shell-kommandoen som jeg har vist 13/01-2003 11:09:40
Mht. 2, brug denne kode, der forudsætter at din textbox hedder Text1

  Dim Filnummer as integer
  Filnummer = FreeFile
  Open "C:\Min_fil.txt" For Input As #Filnummer
  Text1.Text = Input(LOF(1), 1)
  Close #Filnummer

Eller brug det udemærkede svar fra rynke10 10/01-2003 14:14:42, hvor filen læses linie for linie og smides i et array...

Og så skulle dit spørgsmål vist være besvaret...

/Martin

Dim Filnummer as integer
  Filnummer = FreeFile
  Open "C:\Min_fil.txt" For Input As #Filnummer
  Text1.Text = Input(LOF(1), 1)
  Close #Filnummer

med den her åbner den notepad, med filen åben... men den åbner den ikke i text1!!! arrrg!

okey.... vent nu lidt...

nu har jeg fået det til at virke!

tak for hjælpen, godt nok var jeg lidt tungnem nogle gange... og jeg spørg sikkert om mere snart....