' fixed width string
Private Sub Command1_Click()
Dim sString As String * 10, sString2 As String * 20
sString = "asdf"
sString2 = "qwer"
Debug.Print "|" & sString & "|"
End Sub
' output file
Private Sub Command2_Click()
Dim nfile As Integer
nfile = FreeFile
Open App.Path & "\asd.txt" For Output As #nfile
Print #nfile, "asdf"
Close #nfile
End Sub
Regards,
Arlis
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
YAHOO! GROUPS LINKS
- Visit your group "indoprog-vb" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
