Textausgabe nur mit ""

[NetWorker049]

Habe hier das Problem, wenn ich eine TEXT datei schreiben will, schreibt der immer Sting variablen mit anführungszeichen ("")

Private Sub Form_Load()
Dim data As String, datanr, textfeld As Integer
Dim temp As String
 
data = frm_main.lab_phat4.Caption
datanr = FreeFile
temp = "i"
frm_main.Label1.Caption = temp
Open data For Output As datanr
 
		Write #datanr, CDbl(frm_barchef.Label54.Caption)
			Write #datanr, Chr(105)
		Write #datanr, CDbl(frm_barchef.Label55.Caption)
			Write #datanr, temp
 
Close datanr
End Sub

der schreibt dann das hier:

22.21
"i"
8.98
"i"

weis jemand, wie ich die zeichen (anführungszeichen) vor und nach dem i wegbekomme?

 

[Merlin_78]

Hi NetWorker049,

Versuch das mal mit Print

Write #datanr, CDbl(frm_barchef.Label54.Caption)
Print #datanr, Chr(105)
Write #datanr, CDbl(frm_barchef.Label55.Caption)
Print #datanr, temp

 

[NetWorker049]

Cool,,, Thanks

das ...