Avatar billede eli-ann Nybegynder
14. maj 2003 - 21:43 Der er 21 kommentarer og
1 løsning

Kan jeg hente ut verdier / stringer fra en .ini fil ?

Jeg forsøker å hente ut verdier og stringer fra en .ini fil, men jeg får ikke dette helt til. Dette er koden jeg har forsøkt :

str = System.PrivateProfileString("C:\test.ini", "AntallPrintere", "antU87")
msgbox(str)

Dette tror jeg er riktig i forhold til .ini filen, men jeg får ikke ut noe som helst fra str.

Kan noen hjelpe meg ?
Avatar billede Slettet bruger
14. maj 2003 - 21:48 #1
Det ser ok ud, hvordan ser din ini-fil ud?
Avatar billede eli-ann Nybegynder
14. maj 2003 - 21:49 #2
[AntallPrintere]
antU87=3
antM6=3

[U87]
printer1 = Canon
printer2 = HP
printer3 = Xerox

[M6]
printer1 = en
printer2 = to
printer3 = tre
Avatar billede Slettet bruger
14. maj 2003 - 21:51 #3
Og ups, PrivateProfileString er en Office ting så den virker nok ikke under VBScript.
Avatar billede eli-ann Nybegynder
14. maj 2003 - 21:53 #4
Er det noen annen måte å hente ut verdier fra .ini filer ?
Avatar billede Slettet bruger
14. maj 2003 - 21:54 #5
Ja, du kan bruge filesystemobject til at åbne filen med og så søge i filen til du finder det du skal bruge.
Avatar billede eli-ann Nybegynder
14. maj 2003 - 21:56 #6
Hvordan gjør jeg det ?
Avatar billede Slettet bruger
14. maj 2003 - 21:57 #7
Du kan åbne sådan her:
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set File = FSO2.Getfile(server.mappath(Filnavn))
så har du åbnet filen og kan gennemløbe den.
Avatar billede Slettet bruger
14. maj 2003 - 22:00 #8
Hmm jeg vrøvler, du har kun fat i filen, jeg ser lige om jeg kan finde noget mere til dig.
Avatar billede eli-ann Nybegynder
14. maj 2003 - 22:06 #9
ok
Avatar billede Slettet bruger
14. maj 2003 - 22:08 #10
Prøv at tage udgangspunkt i dette:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(Server.MapPath("c:\test.ini"))
While Not objFile.AtEndOfStream
  readLine = objFile.ReadLine
  If readLine = "DinTekst" Then
    Response.Write "Fundet" 
  End If
Wend
Avatar billede Slettet bruger
14. maj 2003 - 22:34 #11
Nu vil jeg smutte for i dag, håber du får det til at virke :-)
Avatar billede eli-ann Nybegynder
14. maj 2003 - 22:35 #12
Nei det var desverre ikke dette jeg var ute etter...
Avatar billede medions Nybegynder
14. maj 2003 - 23:42 #13
eli-ann> Hmm er du sikker på det her ikke høre til i Visual Basic kategorien?

//>Rune
Avatar billede eli-ann Nybegynder
15. maj 2003 - 08:12 #14
Jeg ønsker å gjøre dette med VBScript....
Avatar billede Slettet bruger
15. maj 2003 - 19:34 #15
Hvis det ikke var det du var ude efter hvad er det så?
Avatar billede Slettet bruger
10. oktober 2003 - 21:50 #16
Hvordan gik det med denne her?
Avatar billede eksperten? Nybegynder
10. oktober 2003 - 21:50 #17
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(Server.MapPath("c:\test.ini"))
While Not objFile.AtEndOfStream
  readLine = objFile.ReadLine
  If readLine = "DinTekst" Then
    Response.Write "Fundet" 
  End If
Wend
Avatar billede Slettet bruger
10. oktober 2003 - 21:52 #18
Hvad fa.... sker der her?
Avatar billede medions Nybegynder
11. oktober 2003 - 15:40 #19
bertie> Jeg ville anmelde det hvis jeg var dig!

//>Rune
Avatar billede Slettet bruger
11. oktober 2003 - 15:49 #20
medions>> Er sket, så må jeg jo se om der sker noget.
Avatar billede jelzin101 Praktikant
15. oktober 2003 - 20:00 #21
eli-ann>> såvidt jeg kan se er det svar du vælger at give point en direkte kopi af bertie's - medmindre du har en god forklaring synes jeg du bør søge at bringe dette misforhold til ophør.

Mvh.
Jelzin101/coadmin.
26. marts 2004 - 14:01 #22
jelzin101->Følger I ikke op på denne slags anmeldelser?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester