Omdan syntas Fra VB.NET til VB 4.0

og der skulle selvfølgelig stå "syntaks" i overskriften :-)

Hej.

Nå, de kloge kommer ikke på banen :-(
Jeg skriver aldrig i Registry fra min VB5 (den er stor nok i forvejen!), jeg foretrækker ini-filer.  Men der har været mange, mange spørgsmål på eksperten om det, så får du ikke svar, så søg!

M.v.h. Jørn

Hej Jørn

Tak for hjælpen

Nu er jeg gået helt væk fra registreringsdatabasen. Jeg har kigget lidt på ini-filer, og du har helt ret, det er meget nemmere at arbejde med.

Læg et svar

Hej.

Der er to måder at bruge en ini-fil på, enten den 'officielle' at der er et 'tag'
der beskriver hver sektion [fonts] f. eks. eller blot at hver oplysning står på en bestemt plads (linie) i filen.  Jeg bruger at lave en lille læseløkke og en indekseret variabel - ini(30) - der er sjældent brug for mere.

  n = 0
  Open app.path & "\min.ini" for input as #1
    Do while EOF(1)= False
      Line Input #1, ini(n)
      n = n + 1
      If n > 30 then exit Do
    Loop
  Close #1 

For hver ny oplysning jeg efterhånden gerne vil gemme i filen tilføjer jeg den blot til sidst.  Filen skrives når programmet lukkes, eller med en commandbuttom i en ramme hvor data kan skrives - stier o.s.v.
M.v.h.  Jørn

Puha den skal jeg vist lige læse et par gange for at forstå den.

Nu vil jeg lige prøve at se om jeg kan skrive og læse i en fil først, så må jeg blive lidt mere avanceret senere.

Jeg har nu fået skrevet til en fil, men kan ikke rigtig læse fra den igen, så her er
et tip til flere point :-)

http://www.eksperten.dk/spm/572008

Hej.

Indviklet?!  Jeg synes det er vildt enkel husmandsprogrammering.  Der er ingen deklarationer nødvendige eller profile-strings.

Måske er det min fortid med GW-basic i 80'erne der gør, at jeg synes det er simpelt.

Filen åbnes og der læses én linie ad gangen så længe (EOF) der står noget i den, dog højst 30 linier.  Hver linie's indhold lægges i en indekseret variabel ( ini(n) )

Efterfølgende tildeles de variable, der skal anvende ini-filens data, den respektive værdi, - et eksempel:

a = 0
Open App.Path & "\melodier.ini" For Input As #1
  Do While EOF(1) = False
    Line Input #1, ini(a)
    a = a + 1
  Loop
  Close #1
  If Len(ini(0)) > 4 Then netsti = ini(0)
  If Len(ini(1)) > 4 Then wavsti = ini(1)
  If Len(ini(2)) > 4 Then mp3sti = ini(2)
  If Len(ini(3)) > 4 Then ampsti = ini(3)
  If Len(ini(4)) > 4 Then billsti = ini(4)
  If Len(ini(5)) > 4 Then tekststi = ini(5)
  If Len(ini(6)) > 4 Then brandsti = ini(6)
  If Val(ini(7)) > 5 Then If Val(ini(7)) < 65 Then scrnavn.Value = Val(ini(7))
  If Len(ini(8)) > 0 Then cdsti = ini(8)
  If Len(ini(9)) > 4 Then mpgsti = ini(9)
  If Len(ini(10)) > 4 Then hovedsti = ini(10)
  If Len(ini(11)) > 4 Then mappemp3.Path = ini(11)  'importsti tilføjet 27-10-2004
  If Len(ini(12)) > 4 Then mpeg2sti = ini(12)      'mpeg2sti tilføjet 30-10-2004
  If Len(ini(13)) > 4 Then lydeditsti = ini(13)
  'If Len(ini(14)) > 4 Then sti14 = ini(14)
  If Val(ini(15)) = 0 Then chkbrand.Value = 0 Else chkbrand.Value = 1
  toppen = ini(16)
  venstre = ini(17)
  txtfornr.Text = ini(18)
  fornr = Val(ini(19))

Det er jo mest stier der gemmes her.  toppen og venstre er vinduets position på skærmen.  Når programmet afsluttes gemmes bl.a. disse, så det åbner på samme sted igen næste gang.

M.v.h. Jørn