Datei erstellen

[klaussal]

Moin moin,

ich erstelle mit

Code

strStrasse & _
			strHausnr & _
			Left("00000000000000000000000000000000000000000000000000",30) & _
			Left("00000000000000000000000000000000000000000000000000",30) & _
			Left("00000000000000000000000000000000000000000000000000",30) & _
			Left("00000000000000000000000000000000000000000000000000",14)
			Write #fileNum%, strDatensatz945

eine Datei. So weit, so gut, abär:

Code

"910200040003710611..."

so sieht der Datensatz aus.

Frage: wo kommen die Gänsebeine her ?
Liegt das hieran, dass ich die Dateiendung mit .txt benenne ?

Code

fileName$ = "export_to_sap910.txt"

Danke für Tipps und Hinweise !

klaus

[Axel]

Hi,

versuch's mal mit der Print #- Anweisung.

Auszug aus der Online-Hilfe:

Use Print # only on files opened in Output or Append mode. Unlike the Write # statement, the Print # statement does not separate the printed data items with formatting characters such as commas and quotation marks.

Axel

[stitze]

Ich hab das mal eben ausprobiert, folgender Code:

Code

	Dim strStrasse As String
	Dim strHausnr As String
	Dim strDatensatz945 As String 
	
	fileNum% = Freefile()
	fileName$ = "C:\export_to_sap910.txt"
	
	Open fileName$ For Output As fileNum%
	
	strStrasse = "Titzer Str"
	strHausnr = "23"
	
	strDatensatz945 = strStrasse & strHausnr & _
	Left("00000000000000000000000000000000000000000000000000",30) & _
	Left("00000000000000000000000000000000000000000000000000",30) & _
	Left("00000000000000000000000000000000000000000000000000",30) & _
	Left("00000000000000000000000000000000000000000000000000",14)
	
	Write #fileNum%, strDatensatz945

ich erhalte folgende Ausgabe

"Titzer Str2300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"

Das dort Anführungszeichen stehen, ist bei dem Write Statement so, siehe Hilfe

Writes data to a sequential text file with delimiting characters

[klaussal]

 

@Axel,

Das war's, danke !!

klaus