29/06/06 9:58
Car Mine
salve ragazzi e complimenti per le vostre dritte... ho un problema intano vi scrivo il codice gia funzionante...
Private Sub Command2_Click()
Open App.Path & "\LOT_SCAD_Var.txt" For Output As #1
Dim Str1, Str2, Str3 As String
Str1 = ”Text1”
Str2 = ”Text2”
Str3 = Text1 & " ; " & Text2
Print #1, Str3
Close #1
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub
Private Sub Command3_Click()
Unload Form1
End Sub
questo programmino non fa altro ke una volta immessi dei dati alfanumerici in due dialogbox text separare, alal pressione di un tasto genera un file di testo. Questo file di testo dovrebbe essere in questo modo:
"testo1" ; "testo2"
invece il programma lo salva in quest'altro modo:
testo1 ; testo2
Il problema e che non riesco a salvare gli apici ("" nel fiel di testo e no capsico il perke...
mi aiuatate voi ke ne capite piu' di me? grazie mille Car...
Private Sub Command2_Click()
Open App.Path & "\LOT_SCAD_Var.txt" For Output As #1
Dim Str1, Str2, Str3 As String
Str1 = ”Text1”
Str2 = ”Text2”
Str3 = Text1 & " ; " & Text2
Print #1, Str3
Close #1
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub
Private Sub Command3_Click()
Unload Form1
End Sub
questo programmino non fa altro ke una volta immessi dei dati alfanumerici in due dialogbox text separare, alal pressione di un tasto genera un file di testo. Questo file di testo dovrebbe essere in questo modo:
"testo1" ; "testo2"
invece il programma lo salva in quest'altro modo:
testo1 ; testo2
Il problema e che non riesco a salvare gli apici ("" nel fiel di testo e no capsico il perke...
mi aiuatate voi ke ne capite piu' di me? grazie mille Car...
aaa