OpenOffice.info

Hallo

[quote]Wäre schön wenn ihr einen Lösungsansatz für mich hättet mit dem ich arbeiten könnte.[/quote]

Das beste wäre wohl dieses grausam schlechte Basic-script wegzuwerfen und eine vernünftige Programmiersprache zu nehmen.

in basic gibts dazu [color=#BF0000]open "C:\blah.txt" for [u]append[/u] as #n[/color]

[quote="Karolus"]Wenn du mehrere Einträge in die Textdatei schreiben willst musst du die vor der `for-Schleife` öffnen( [color=#FF0000]open ...[/color] und erst hinterher wieder schliessen.( [color=#FF0000]close #i[/color][/quote]

Wenn ich die Datei erneut öffne mit dem Programm fängt mein Makro leider wieder oben an reinzuschreiben, und überschreibt die anderen Daten. Wie kann ich meinem Programm sagen, dass er den Cursor ganz am Ende der Datei ansetzen soll?

Wäre schön wenn ihr einen Lösungsansatz für mich hättet mit dem ich arbeiten könnte.

MfG Brownhack

Hallo Karolus,

Vielen Dank, es hat funktioniert :D

MfG
Brownhack

Wenn du mehrere Einträge in die Textdatei schreiben willst musst du die vor der `for-Schleife` öffnen( [color=#FF0000]open ...[/color] und erst hinterher wieder schliessen.( [color=#FF0000]close #i[/color]

Hi Karolus, brownhack,

da habe ich mich wohl zu weit aus den Fenster gelehnt und habe "ob der angegebene Ausdruck eine Zahl ist." zu genau genommen,
es müsste dann richtiger Weise heißen "ob der angegebene Ausdruck in eine Zahl gewandelt werden kann"

denn dannenhoefer.de schreibt
isnumeric - Ermittelt, ob der angegebene Ausdruck [b]eine Zahl ist[/b]. Wird der Ausdruck als Zahl erkannt, wird True zurückgegeben, andernfalls False.


MS VB info ist da genauer, nur weis ich jetzt nicz ob das 1:1 auch für OO gilt
IsNumeric gibt True zurück, wenn Expression den Datentypen Boolean, Byte, Decimal, Double, Integer, Long, SByte, Short, Single, UInteger, ULong oder UShort entspricht oder ein Object mit einem dieser numerischen Typen ist. Außerdem gibt es True zurück, wenn Expression ein Char oder eine String ist und in eine Zahl konvertiert werden kann.

IsNumeric gibt False zurück, wenn Expression dem Date-Datentyp oder Object-Datentyp entspricht und keinen numerischen Typ enthält. IsNumeric gibt False zurück, wenn Expression ein Char oder eine String ist und nicht in eine Zahl konvertiert werden kann.



@ brownhack
was steht in den überprüften Zellen Zellen ?

trotz Karolus Einwand scheint mir diese Zeile die Hürde zu sein,
stell doch bitte eine Beispieldatei zur Verfügung

Sub Main
mytext = "12.3 456"
arr = split(mytext," ")

Print isnumeric( arr(0))
End Sub

@clag
[quote="clag"]split() liefert Text, darum kann isnumeric(wert_arr(0)) then
niemals wahr sein[/quote]

Du täuscht dich [i]isnumeric[/i] prüft nicht ob etwas ein Text ist oder nicht, sondern nur ob das übergebene Argument ausschliesslich aus Ziffern mit höchstens eine Dezimalpunkt dazwischen besteht.

[code]Sub Main
mytext = "12.3 456"
arr = split(mytext," ")

Print isnumeric( arr(0))
End Sub[/code]

gibt True aus

isnumeric(VAL(wert_arr(0))) then

Hallo brownhack,

[quote="brownhack"]rem Zähler, überprüung jeder Zeile
For zeile = 0 to zeilen_summe - 1

wert = thisComponent.sheets(0).getCellByPosition(0, zeile).string
On Error Resume Next
[color=#0000FF]wert_arr = Split(wert, " ")[/color]
On Error Resume Next

[color=#FF0000] if isnumeric(wert_arr(0)) then[/quote][/color]

blau und rot passt nicht zusammen

[color=#0000FF]split()[/color] liefert Text, darum kann [color=#FF0000]isnumeric(wert_arr(0)) then[/color]
niemals wahr sein

je nach Inhalt könnte [b]VAL[/b] helfen den String in einen Wert zu wandeln

[code]isnumeric(VAL(wert_arr(0))) then[/code]

oder auch
[quote]
[b]CDbl[/b] - Konvertiert einen beliebigen numerischen Ausdruck oder einen String-Ausdruck in einen Double-Typ.
[b]CInt[/b] - Konvertiert einen beliebigen numerischen Ausdruck oder einen Zeichenkettenausdruck in einen Integer-Typ.
[b]CLng[/b] - Konvertiert einen beliebigen numerischen Ausdruck oder einen Zeichenkettenausdruck in einen Long-Integer-Typ.[/quote]

sub Daten_in_neue_Datei_schreiben

rem Variablen Deklaration

	dim zeilen_summe as long
	dim zeile as long
	dim wert as string
	dim wert_arr() as string
	dim wert_holen as string
	dim i as string
	
rem  Anzahl der beschriebenen Zeilen ermitteln

	oCursor = thisComponent.sheets(0).createCursor()
	oCursor.goToEndOfUsedArea(False)  'setzt den cursor in die letzte Zelle (links unten) des benutzen Bereiches
	zeilen_summe = oCursor.getRangeAddress.EndRow + 1
   	i = FreeFile()
   	
rem Zähler, überprüung jeder Zeile 
	For zeile = 0 to zeilen_summe - 1
  
		wert = thisComponent.sheets(0).getCellByPosition(0, zeile).string
		On Error Resume Next
		wert_arr = Split(wert, " ")
		On Error Resume Next

		if isnumeric(wert_arr(0)) then
		
			if thisComponent.sheets(0).getCellByPosition(5, zeile).string <> "" then
				wert_holen = thisComponent.sheets(0).getCellByPosition(5, zeile).string
			endif
			
			if thisComponent.sheets(0).getCellByPosition(6, zeile).string <> "" then
				wert_holen = thisComponent.sheets(0).getCellByPosition(6, zeile).string
			endif
			
			if thisComponent.sheets(0).getCellByPosition(7, zeile).string <> "" then
				wert_holen = thisComponent.sheets(0).getCellByPosition(7, zeile).string
			endif
			
			if thisComponent.sheets(0).getCellByPosition(8, zeile).string <> "" then
				wert_holen = thisComponent.sheets(0).getCellByPosition(8, zeile).string
			endif
			
			open "C:\Users\Praktikant\test.csv" For output as i
			print #i, wert_holen
			
			endif
		close #i
	next
    msgbox "Datenexport erfolgreich abgeschlossen!"

end sub

Hallo community,

Ich habe ein spezielles Problem. Ich bin Anfänger in Open Office Basic und programmiere gerade ein Makro was bestimmte Daten aus der aktuellen Datei nehemn soll und dann in ein anderes Dokument reinschreiben soll. Bis jetzt funktioniert alles Super, d.h. ich kann die neue Datei erstellen und dort auch etwas in die erste Zelle reinschreiben, jedoch überschreibt der immer die erste Zelle. Jetzt die Frage:
Weiß Jemand wie ich die nächste Zelle reinschreiben kann über das Makro?

Danke im vorraus :)

(Hier ist mein Code)
[code]
sub Daten_in_neue_Datei_schreiben

rem Variablen Deklaration

dim zeilen_summe as long
dim zeile as long
dim wert as string
dim wert_arr() as string
dim wert_holen as string
dim i as string

rem Anzahl der beschriebenen Zeilen ermitteln

oCursor = thisComponent.sheets(0).createCursor()
oCursor.goToEndOfUsedArea(False) 'setzt den cursor in die letzte Zelle (links unten) des benutzen Bereiches
zeilen_summe = oCursor.getRangeAddress.EndRow + 1
i = FreeFile()

rem Zähler, überprüung jeder Zeile
For zeile = 0 to zeilen_summe - 1

wert = thisComponent.sheets(0).getCellByPosition(0, zeile).string
On Error Resume Next
wert_arr = Split(wert, " ")
On Error Resume Next

if isnumeric(wert_arr(0)) then

if thisComponent.sheets(0).getCellByPosition(5, zeile).string <> "" then
wert_holen = thisComponent.sheets(0).getCellByPosition(5, zeile).string
endif

if thisComponent.sheets(0).getCellByPosition(6, zeile).string <> "" then
wert_holen = thisComponent.sheets(0).getCellByPosition(6, zeile).string
endif

if thisComponent.sheets(0).getCellByPosition(7, zeile).string <> "" then
wert_holen = thisComponent.sheets(0).getCellByPosition(7, zeile).string
endif

if thisComponent.sheets(0).getCellByPosition(8, zeile).string <> "" then
wert_holen = thisComponent.sheets(0).getCellByPosition(8, zeile).string
endif

open "C:\Users\Praktikant\test.csv" For output as i
print #i, wert_holen

endif
close #i
next
msgbox "Datenexport erfolgreich abgeschlossen!"

end sub
[/code]