OpenOffice.info

Hallo

[quote]schreibt es statt 7,5 ein mal 7 und einmal 5[/quote]
Im csv-Import-Dialog gibts ein ein ganze Reihe von Trennzeichen-Optionen schalt einfach das []Komma [b]ab[/b]



[quote]die Deutsche Buchstaben wie "ü, ä, ö" importieren. Bei mir zegt es so komische Zeichen.[/quote]
Im bereits erwähnten Dialog gibt es weiter oben eine DropDown-Auwahl: Zeichensatz
Suche dir eine Zeichencodierung aus bei welcher die Umlaute in der Vorschau richtig angezeigt werden.

Karolus

...getCellByPosition(j,i).String = daten(j)

...getCellByPosition(j,i).Value = daten(j)

Sub text_imp_Test
Dim myValue as integer
Dim Daten as variant
	datei = Freefile
	open "C:\test5.txt" for InPut as datei
	For i = 0 to 1
	Input #datei, Currentele
	If Currentele <> "" then
	daten() = split(Currentele,chr(9),7)
	For j = 0 to 1
		          
	myValue = daten(j)	
	msgbox myValue 'Hier kommt bei ersten Durchlauf 0
	
	ThisComponent.Sheets.getbyname("Tabelle3").getCellByPosition(j,i).Value = myValue
	next j
	End If       
	next i
	close #datei       
end sub

Hi Chrisss,
[quote="Chrisss"]in der Zelle sind die Hochkommas nicht sichtbar erst beim Anklicken in der Zeile "Oben"[/quote]
Ausser in der ersten Zelle A1, da wird die Zahl ohne Hochkomma ausgegeben.

Wenn Du
[code]...getCellByPosition(j,i).String = daten(j)[/code]
durch[code]...getCellByPosition(j,i).Value = daten(j)[/code]
ersetzt verschwinden die Hochkommas aber in der ersten Zelle wird "0" angezeigt :(

Das kann man prüfen, in dem man folgendes Testmakro laufen lässt:
[code]Sub text_imp_Test
Dim myValue as integer
Dim Daten as variant
datei = Freefile
open "C:\test5.txt" for InPut as datei
For i = 0 to 1
Input #datei, Currentele
If Currentele <> "" then
daten() = split(Currentele,chr(9),7)
For j = 0 to 1

myValue = daten(j)
msgbox myValue 'Hier kommt bei ersten Durchlauf 0

ThisComponent.Sheets.getbyname("Tabelle3").getCellByPosition(j,i).Value = myValue
next j
End If
next i
close #datei
end sub[/code]

Vielleicht kommst Du ja darauf warum das so ist.

Jürgen

Für so wenig Daten reicht die konzipierte Schleife....

...wenn es mehr Daten sind (immer gleichartig formatiert), dann empfehle ich mal das hier: http://www.re-solutions.de/ooo/makros/calc_insertCSV2Calc.odt

adaten() = split(ganzer_string,Trennzeichen)

Hallo
Mit
[code]adaten() = split(ganzer_string,Trennzeichen)[/code]
überführst du einen Text in einen Array, Trennzeichen dürfte bei dir 'chr(9)' oder chr(13) sein.

Gruß Karo

Print #datei, arg1 & chr(9) & arg2 & chr(9) & arg3 & chr(9) & arg4 & chr(9) & arg5 & chr(9) & arg6 & chr(9) & arg7

Print #datei, arg1 & " " & arg2 & " " & arg3 & " "& arg4 & " " & arg5 & " " & arg6 & " " & arg7

Hi Chriss,
[quote="chrisss"]Weiß jemand ob es auch eine Möglichkeit gibt das man einen Tabulator Abstand zwischen den einzelnen Strings bekommt ? [/quote]
Jou, nämlich in dem man das Codezeichen für einen Tabulator verwendet. :D
[code]Print #datei, arg1 & chr(9) & arg2 & chr(9) & arg3 & chr(9) & arg4 & chr(9) & arg5 & chr(9) & arg6 & chr(9) & arg7[/code]

oder aber mit Leerzeichen dazwischen:[code]Print #datei, arg1 & " " & arg2 & " " & arg3 & " "& arg4 & " " & arg5 & " " & arg6 & " " & arg7[/code]

Viel Erfolg!

Jürgen

Öffnen und Speichern von Text CSV-Dateien

Textdateien importieren und exportieren

Hallo Chriss,
warum der große Aufwand???
Schau Dir mal die Ooo_Hilfe an : [code]Öffnen und Speichern von Text CSV-Dateien[/code]
Unter dem Thema : [code]Textdateien importieren und exportieren[/code]
für den Import einer CSV(Text-)Datei in "Calc" benötigst du kein "Basic-Modul".
Den "ExportBereich" solltest Du in ein leeres "Blatt" kopieren.
Weitere Hilfen : [url]http://www.ooowiki.de/csvDatentabelle/Import?highlight=(KategorieCalc)[/url]
oder : [url]http://www.ooowiki.de/csvDatentabelle/Calc?highlight=(KategorieCalc)[/url]

ich hoffe das hilft Dir weiter.

mfg
Gert