Seite 1 von 2
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Mi, 05.08.2009 10:41
von komma4
Hallo Uschi,
welche OOo Version, welches Betriebssystem?
Was verstehst Du unter einer INI-Datei? Welches Format? Warum möchtest Du diese in CALC einlesen ... was willst Du damit machen?
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Mi, 05.08.2009 10:59
von Hömmelmann
Hallo,
versuchs doch mal damit:
sub inilesen
Dim aFile As String
Dim sMsg as String
Dim iNumber As Integer
Dim sZeile As String
aFile = "c:\Pfadangabe\Dateiname.ini"
iNumber = Freefile
'open "c:\Daten\Muell\Ascd_tmp.ini" for input as #1
Open aFile For Input As iNumber
While not eof(iNumber)
Line Input #iNumber, sZeile
If sZeile <>"" then
sMsg = sMsg & sZeile & chr(13)
end if
wend
Close #iNumber
Msgbox sMsg
end sub
Gruß, Friedhelm
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Mi, 05.08.2009 11:11
von Uschi
Hab es mittlerweile auch geschafft mich hier anzumelden.
Danke Friedhelm.
Das klappt soweit, aber ich würde gerne die Daten in z.B. Textfelder übertragen und in meine Mappe einlesen lassen.
Wie mache ich das? Bitte helft mir auf die Sprünge
Eure Uschi
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Mi, 05.08.2009 11:18
von Hömmelmann
Hallo Uschi,
so müsste auch das gehen:
sub inilesen
Dim aFile As String
Dim sMsg as String
Dim iNumber As Integer
Dim sZeile As String
dim zeile as integer
doc=thiscomponent
t1=doc.sheets(0)
aFile = "c:\Pfadangabe\Dateiname.ini"
iNumber = Freefile
Open aFile For Input As iNumber
While not eof(iNumber)
Line Input #iNumber, sZeile
If sZeile <>"" then
zeile=zeile + 1
t1.getcellbyposition(0,zeile).string=sZeile
'sMsg = sMsg & sZeile & chr(13)
end if
wend
Close #iNumber
'Msgbox sMsg
end sub
Gruß, Friedhelm
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Mi, 05.08.2009 11:23
von Uschi
Bist ein Schatz Friedhelm!!!
Kann ich die Daten, die jetzt erfolgreich in der Arbeitsmappe abgebildet sind, über set/getstring in den Dialog übernehmen???
Uschi
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Mi, 05.08.2009 11:38
von Hömmelmann
ja, die Daten kannst du mit
...
Variable=t1.getcellbyposition(spalte,zeile).string
...
einlesen und beliebig weiter nutzen.
Friedhelm
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Mi, 05.08.2009 11:43
von Uschi
Danke...du hast mir sehr weitergeholfen!!!
Uschi
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Mi, 05.08.2009 11:45
von Uschi
Könnte man die Lösung auch für eine ListBox erweitern?
Uschi
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Mi, 05.08.2009 13:23
von Uschi
Hey an alle,
kann mir einer von euch sagen, wie ich meine *.ini-Datei auf mehrere Spalten verteilen kann?
Uschi
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Do, 06.08.2009 08:39
von Uschi
Guten morgen allerseits...
kann mir keiner von euch helfen???
Eure Uschi
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Do, 06.08.2009 09:34
von komma4
???
Redest Du nun von Listboxen? Die sind einspaltig ...
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Do, 06.08.2009 09:42
von Uschi
Guten morgen Komma 4,
ich würde gerne über eine Listbox verschiedene Ini-Dateien(oder auch txt-Dateien) auswählen können.
Wenn diese ausgewählt wurden, sollen die Daten aus ihr in die Zeilen und Spalten eingetragen werden.
Bekomme das aber nicht hin
Steht z. B. in der Datei:
Uschi Komma4
Dieter
Dann soll Uschi in A1, Komma4 in B1 und Dieter in A2 eingetragen werden.
Verstehst du auf was ich hinaus will und kannst mir helfen???
Uschi
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Do, 06.08.2009 10:02
von komma4
Die Zeilensteuerung hast Du von Friedhelm übernommen ...
Der Befehl, um eine Zeichenkette aufzuteilen, heisst
SPLIT(Online-Hilfe!).
Im folgenden Beispiel wird
iSpalte gesetzt, um einen Spaltenzähler zu haben.
Code: Alles auswählen
Sub de26284
DIM aStrings()
sString = "Anton Berta Cäsar"
If Instr(1, sString, " " ) Then
aStrings = SPLIT( sString, " " )
For i = LBound( aStrings ) To UBound( aStrings )
ergebnis = aStrings( i )
iSpalte = i
' fuellen in Spalte je nach Zaehler
Next i
Else
' nur ein Wort
ergebnis = sString
iSpalte = 0
' fuellen in Spalte 0
End If
End Sub
Kommst Du damit zurecht?
Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Do, 06.08.2009 10:12
von Uschi
Also so richtig komme ich damit ne klar, wenn ich das ausführen will, dann passiert gar nix...

Re: *.ini-Datei über Makro in Calc einlesen
Verfasst: Do, 06.08.2009 10:21
von komma4
Ist ein BEISPIEL.
Damit kannst Du eine Zeichenkette ( eine eingelesene Zeile ) aufteilen - bzw. die Spaltenposition bestimmen.
Den Code musst Du mit Friedhelms "verheiraten" ... ich muss aktuell hier mal was arbeiten...