Über Listbox auf ini-Dateien zugreifen

[Uschi]

Guten morgen,
wie könnte ich nun über eine Listbox auf mehrere ini-Dateien zugreifen???
Muss man da was beachten???

[Stephan]

Wie wäre es wenn Du ENDLICH einmal für neue Fragen jeweils einen neuen Thread eröffnen würdest und nicht anderen Nutzern mit dem Durcheinanderposten die Übersicht unnötig erschwerst?

Ich habs jetzt einen neuen Thread eröffnet.

Gruß
Stephan

[Uschi]

Kann man(n) das nicht auch mal netter sagen?

[Stephan]

Kann man(n) das nicht auch mal netter sagen?

Kann man - nur wenn man solche, und ähnliche, Dinge ständig wiederholen muß ist die Lust dazu nicht allzu groß.


Gruß
Stephan


gleich dazu geschrieben:
Ich habe jetzt auch keine Lust wieder die Notwendigkeit oder den Grund bestimmter Regeln zu diskutieren oder Entschuldigungen das es ja hier nur ums Internet geht und man das alles deshalb nicht wissen muß zu erörtern.
Wir alle beachten, ganz selbstverständlich, im normalen Leben Regeln und das Internet ist inzwischen ein Stück des Normalen, so das es prima wäre wenn man dort gültige Regeln mit selben Verständnis beachtet wie sonstige Umgangsformen.
"mit selben Verständnis" meine ich übrigens genauso wie es dasteht, denn im normalen Leben gehts nicht kleinkariert zu und hier im Forum auch nicht.

[Uschi]

Kann mir einer nen tipp geben? will 3 dateien verwenden. wenn eine ausgewählt wurde, dann sollen die die daten von dieser in mein formular übernommen werden. mein code für eine datei ist:

'Einlesen einer *.ini-Datei
Sub inilesen

aFile = "C:\dateiname.ini"
iNumber = Freefile
Open aFile For Input As iNumber
While not eof(iNumber)
Line Input #iNumber, sZeile

For k=0 to 1

If Instr(sZeile, "#") then
astrings=SPLIT(sZeile, "#")

For i=LBound (astrings) to UBound (astrings)
sSpalte = astrings(i)
iSpalte=i
Blatt.getCellbyPosition(iSpalte,iZeile).string=sSpalte
Next i
Else

Blatt.getCellbyPosition(0,iZeile).string=sZeile
End If
iZeile=iZeile+k
Next k
wend
close #iNumber

End Sub


Eure Uschi

[komma4]

Wo ist die Frage?

Du erzeugst eine listbox mit den Einträgen "eins", "zwei" und "drei", übernimmst die Auswahl und übergibst diese an die lesende Routine.

[Uschi]

ich komme schon mit der erzeugung der listbox nicht klar...

Bitte um Hilfe!!!

[komma4]

Erstes sticky posting hier im BASIC-Bereich: lese Dir die Quellen durch!


Natürlich hat Andrew Pitonyaks Makro Dokument ein Beispiel.
Auch bei Michael Dannenhöfer solltest Du etwas finden.

Oder die Suchfunktion benutzen ... ich bin mir ziemlich sicher, dass hier auch schon Code zu Listenfeldern gepostet wurde.



Wir helfen gerne - sind aber keine Codeschreiber für Dich

[Uschi]

Hab das jetzt so halbwegs hinbekommen, aber das Programm übernimmt nur einmal die ini-datei. Wenn ich jetzt eine andere auswählen will, wird diese nicht mehr übernommen. Könnt ihr mir sagen was ich falsch mache?

'Einlesen einer *.ini-Datei
Sub inilesen

Dim ComboBox as object
ComboBox = oDialog.GetControl("ComboBox")

If ComboBox.selectedText = " 1" then

aFile = "C:\dateiname.ini"

elseif ComboBox.selectedText = " 2" then
aFile = "C:\dateiname2.ini"

End If

iNumber = Freefile
Open aFile For Input As iNumber
While not eof(iNumber)
Line Input #iNumber, sZeile

For k=0 to 1

If Instr(sZeile, "#") then
astrings=SPLIT(sZeile, "#")

For i=LBound (astrings) to UBound (astrings)
sSpalte = astrings(i)
iSpalte=i
Blatt.getCellbyPosition(iSpalte,iZeile).string=sSpalte
Next i
Else

Blatt.getCellbyPosition(0,iZeile).string=sZeile
End If
iZeile=iZeile+k
Next k
wend
close #iNumber

End Sub

[komma4]

Du rufst das Makro ein weiteres Mal auf, wenn der Listeneintrag wechselt? Das passiert nicht automatisch...

[Uschi]

also hab jetzt mitbekommen, dass es die ini-datei direkt untendrunter schreibt...aber es soll ja die alte datei überschreiben in calc...

[Uschi]

Habs jetzt selber hinbekommen
Das wird langsam...

Mein Code:


'Einlesen einer *.ini-Datei
Sub inilesen

Dim ComboBox as object
ComboBox = oDialog.GetControl("ComboBox")

If ComboBox.selectedText = "1" then
aFile = "C:\dateiname.ini"
iSpalte=0
iZeile=0

elseif ComboBox.selectedText = "2" then
aFile = "C:\dateiname2.ini"
iSpalte=0
iZeile=0
End If

iNumber = Freefile
Open aFile For Input As iNumber
While not eof(iNumber)
Line Input #iNumber, sZeile

For k=0 to 1

If Instr(sZeile, "#") then
astrings=SPLIT(sZeile, "#")

For i=LBound (astrings) to UBound (astrings)
sSpalte = astrings(i)
iSpalte=i
Blatt.getCellbyPosition(iSpalte,iZeile).string=sSpalte
Next i
Else

Blatt.getCellbyPosition(0,iZeile).string=sZeile
End If
iZeile=iZeile+k
Next k
wend
close #iNumber

End Sub