ตัวอย่างในบทความนี้อธิบายวิธีการเปิดและบันทึกไฟล์ txt ด้วย VB แบ่งปันกับทุกคนสำหรับการอ้างอิงของคุณ รายละเอียดมีดังนี้:
Private Sub cmdsave_Click()Dim filelocation As String' โหลดบันทึกเป็นกล่อง commondialog1.ShowSave filelocation = commondialog1.FileName' ผนวกบันทึกทับไฟล์ถ้ามันช่วย เปิดตำแหน่งไฟล์สำหรับผนวกเป็น #1 พิมพ์ #1, text1.text ปิด #1End SubPrivate Sub cmdopen_Click () ตำแหน่งไฟล์ Dim As String 'แสดงกล่องเปิด commondialog1.ShowOpen filelocation = commondialog1.FileName' อินพุต ไฟล์ลงใน text1.text เปิดตำแหน่งไฟล์สำหรับอินพุตเป็น #1Do จนถึง EOF(1) อินพุต #1, ข้อมูล text1.text = text1.text + Data + vbNewLine EOF (1) Loop Close #1End Sub
ฉันหวังว่าบทความนี้จะเป็นประโยชน์กับการเขียนโปรแกรม VB ของทุกคน