INI DATEI Beschreiben

Computer: Software & Programmierung Visual Basic
#1

Hi,
ich versuche gerade ein Tool mit VB-Script zu schreiben, bei diesem Tool, soll der Benutzer einen Link per Inputbox speichern können, das sollte dann so aussehen:

link = Array(„www.google.de",„www.travian.de“,"www.digisonline.com“ „usw.“)

Das sollte dann in der INI drin stehen, wenn der Benützer eingegeben hat www.google.de usw. Wenn man sollte dann aber auch was einfügen können, z.B. der Benutzer gibt ein:

www.wer-weiss-was.de

dann soll das wiederum so aussehen:

link = Array(„www.google.de",„www.travian.de“,"www.digisonline.com“ "www.wer-weiss-was.de")

und dann soll man diese Array auch wieder so abfragen können, Also ich brauche diese INI nur zum abspeichern.

Währe cool wenn mir einer helfen könnte, thx.

mfg Hindi

#2

Hallo,

ich versuche gerade ein Tool mit VB-Script zu schreiben, bei
diesem Tool, soll der Benutzer einen Link per Inputbox
speichern können, das sollte dann so aussehen:

link =
Array(„www.google.de",„www.travian.de“,"www.digisonline.com“
„usw.“)

??? Was ist das? So etwas habe ich noch nicht gesehen. Was tut der Code?

Du möchtest ja aber wissen, wie man mit VBS eine Datei lesen und schreiben kann. Beispiel:

 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 Dim fso, f, txt, hx
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.OpenTextFile("c:\test.txt", ForWriting, True)
 f.Write "Hallo Welt!"
 Set f = fso.OpenTextFile("c:\test.txt", ForReading)
 txt = f.Read(5)
 for i = 1 to len(txt)
 hx = hx + hex(asc(mid(txt,i,1)))+" "
 next
 msgbox hx

OK?

Gruß Rainer

#3

ty, aber es hängt bei der 3. Zeile, Zeichen 4. Du weist schon das ich kein vb5 oder so benütze sonder nur das Standart von Windows.

#4

Oder kannst du mich vielleicht in icq adden? Damit ich dich ausfragen kann, XD. Weil das ist mir echt wichtig. Währe cool von dir.

Icq Nummer: 237505583

#5

Hi,

Oder kannst du mich vielleicht in icq adden?

nein, ICQ habe ich nicht installiert, mag ich nicht.

Der Code ist aber in Ordnung, das ist VBS nicht VB5/6.
Ich habe den Code gerade noch mal gestartet, der läuft bei mir ohne Problem. Hast Du beim Kopieren etwas falsch gemacht?

Gruß Rainer

#6

ty, aber es hängt bei der 3. Zeile, Zeichen 4. Du weist schon
das ich kein vb5 oder so benütze sonder nur das Standart von
Windows.

Hi ndi,

der Code von Rainer funktioniert.

Auch ohne Test, in Zeile 3 ist kein Fehler sichtbar wie auch im restlichen Code.

Gruß
Reinhard

1 Like
#7

Hi,

keine Ahnung, was bei Dir schief gelaufen ist. Ich hab’s mal hoch geladen, dann hast Du keine Chance, etwas falsch zu machen.

http://www.win-home.de/Lesetest.vbs

Gruß Rainer

#8

Hast du dann eventuell MSN, oder sonst was, ich hab alles? Weil ich hab alles richtig gemacht.

#9

Hallo,

Hast du dann eventuell MSN, oder sonst was, ich hab alles?

ich nur Telefon, E-Mail und w-w-w. Das muss genügen. :smile:

Weil ich hab alles richtig gemacht.

Sieh mal oben ich habe den Code als .vbs Datei auf meine Homepage gelegt.

Gruß Rainer

#10

Hi,

ich habe noch mal etwas geändert, damit Du auchbeliebig lange Dateien lesen kannst, dafür habe ich die Umsetzung nach ASCII ausgebaut.

 Const ForReading = 1, ForWriting = 2, ForAppending = 8
 Dim fso, f, txt, hx, a, b
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.OpenTextFile("c:\test.txt", ForWriting, True)
 f.Write "Hallo Welt!"
 Set f = fso.OpenTextFile("c:\test.txt", ForReading)
 Set a = fso.GetFile("c:\test.txt")
 b = a.Size
 txt = f.Read(b)
 msgbox txt

Gerade noch mal gestestet, bei mir steht ‚Hallo Welt!‘ in der MessageBox und in der Datei.

Gruß Rainer

#11

Wo oben? Stelle mir bitte einen direktlink rein.

#12

Hi,

Wo oben? Stelle mir bitte einen direktlink rein.

einfach noch einmal … Ich habe schnell noch etwas geändert, das Umsetzen in Hexcode brauchst Du ja nicht.

http://www.win-home.de/Lesetest.vbs

Gruß Rainer

#13

In notepad einfügen und dann als name.vbs speichern, oder?

#14

In notepad einfügen und dann als name.vbs speichern, oder?

ja, genau so.

#15

In notepad einfügen und dann als name.vbs speichern, oder?

ja, genau so.

Ja, genau das geht eben nicht, xD.

#16

Hallo!

ty, aber es hängt bei der 3. Zeile, Zeichen 4.

Hast du auch eine genauere Fehlermeldung?

mfg
christoph

#17

Hi,

hmmm, jetzt gehen mir die Ideen aus.

Mailen geht nicht, Googlemail transportiert keinen ausführbaren Code.

Was heißt eigentlich: Geht nicht. Kannst Du nicht als .vbs abspeichern?
Hast Du bei ‚Dateityp‘ ‚Alle‘ eingestellt? Sonst geht es nicht, dann wird das immer eine Textdatei.

Gruß Rainer

#18

Hi Christoph,

ty, aber es hängt bei der 3. Zeile, Zeichen 4.

Hast du auch eine genauere Fehlermeldung?

das ist unwahrscheinlich, andere Fehlermeldungen liefert VBS nicht.

Gruß Rainer

#19

In notepad einfügen und dann als name.vbs speichern, oder?

ja, genau so.

Ja, genau das geht eben nicht, xD.

Hi Hindi,

Anrede und Grußformel werden hier wie überall gerne gesehen.

Nach dem Download hatte ich eine Datei lesetest.vbs.txt auf dem Rechner. Diese habe ich ohne Notepad einfach umbenannt in lesetest.vbs.
Dann durch Dopelklick gestartet.
Das Fensterchen mit „halle Welt“ kam problemlos.
Getestet mit WinXP.

Gruß
Reinhard

1 Like
#20

Hallo Reinhard,

Dann durch Dopelklick gestartet.
Das Fensterchen mit „halle Welt“ kam problemlos.
Getestet mit WinXP.

danke für den Test! Jetzt hast Du ein File „C:\Test.txt“ mit dem Inhalt 'Hallo Welt!" auf dem Rechner. :smile: Nur falls Dich das stört …

Gruß Rainer