K
kaskad755
надо сохранить два массива (i=0 to 98) и (e=0 to 26), не получается...
один получается:
nfreefile = FreeFile
CommonDialog1.ShowSave
strfilename = CommonDialog1.FileName
If strfilename <> "" Then
Open strfilename For Output As nfreefile
For i = 0 To 98
With Text(i)
Print #1, Text(i)
End With
Next i
Close #1
Close
End If
А вот как два, не знаю (ПОДСКАЖИТЕ ПОЖАЛУЙСТА).
один получается:
nfreefile = FreeFile
CommonDialog1.ShowSave
strfilename = CommonDialog1.FileName
If strfilename <> "" Then
Open strfilename For Output As nfreefile
For i = 0 To 98
With Text(i)
Print #1, Text(i)
End With
Next i
Close #1
Close
End If
А вот как два, не знаю (ПОДСКАЖИТЕ ПОЖАЛУЙСТА).