[VB6 ] 請問textbox存檔與讀取??
我有text1(17),text2(17),text3(17)我要存成一個文字檔,並且一一的排好
例如:
以下是存成文字檔的形式
text1(0)text1(1)text1(2)text1(3)text1(4)text1(5)text1(6)text1(7)text1(8)text1(9
)text1(10)text1(11)text1(12)text1(13)text1(14)text1(15)text1(16)
text2(0)text2(1)text2(2)text2(3)text2(4)text2(5)text2(6)text2(7)text2(8)text3(9
)text2(10)text2(11)text2(12)text2(13)text2(14)text2(15)text2(16)
text3(0)text3(1)text3(2)text3(3)text3(4)text3(5)text3(6)text3(7)text3(8)text3(9
)text3(10)text3(11)text3(12)text3(13)text3(14)text3(15)text3(16)
而我讀取文字檔時也可以一一的對到textbox請問我要如何修改
且修改的比較精簡一點
謝謝
'存檔
On Error GoTo onerror
file_num = FreeFile
CommonDialog1.Filter = "文字檔(*.txt)|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.Filename For Output As file_num
Write #file_num, Text1(1).Text, Text1(2).Text, Text1(3).Text, Text1(4).Text, Te
xt1(5).Text, Text1(6).Text, Text1(7).Text, Text1(8).Text, Text1(9).Text, Text1(
10).Text, Text1(11).Text, Text1(12).Text, Text1(13).Text, Text1(14).Text, Text1
(15).Text, Text1(16).Text, Text1(17).Text, Text2(1).Text, Text2(2).Text, Text2(
3).Text, Text2(4).Text, Text2(5).Text, Text2(6).Text, Text2(7).Text, Text2(8).T
ext, Text2(9).Text, Text2(10).Text, Text2(11).Text, Text2(12).Text, Text2(13).T
ext, Text2(14).Text, Text2(15).Text, Text2(16).Text, Text2(17).Text, Text3(1).T
ext, Text3(2).Text, Text3(3).Text, Text3(4).Text, Text3(5).Text, Text3(6).Text,
Text3(7).Text, Text3(8).Text, Text3(9).Text, Text3(10).Text, Text3(11).Text, T
ext3(12).Text, Text3(13).Text, Text3(14).Text, Text3(1).Text, Text3(16).Text, T
ext3(17).Text
Close
onerror:
'讀取
file_num = FreeFile
CommonDialog1.Filter = "純文字檔(*.txt)|*.txt"
CommonDialog1.ShowOpen
file_num = CommonDialog1.Filename
Open CommonDialog1.Filename For Input As #file_num
Input #file_num, Buffer1, Buffer2, Buffer3, Buffer4, Buffer5, Buffer6, Buffer7,
Buffer8, Buffer9, Buffer10, Buffer11, Buffer12, Buffer13, Buffer14, Buffer15,
Buffer16, Buffer17, Buffer18, Buffer19, Buffer20, Buffer21, Buffer22, Buffer23,
Buffer24, Buffer25, Buffer26, Buffer27, Buffer28, Buffer29, Buffer30, Buffer31
, Buffer32, Buffer33, Buffer34, Buffer35, Buffer36, Buffer37, Buffer38, Buffer3
9, Buffer40, Buffer41, Buffer42, Buffer43, Buffer44, Buffer45, Buffer46, Buffer
47, Buffer48, Buffer49, Buffer50, Buffer51
Text1(0).Text = Buffer1
Text1(1).Text = Buffer2
Text1(2).Text = Buffer3
Text1(3).Text = Buffer4
Text1(4).Text = Buffer5
Text1(5).Text = Buffer6
Text1(6).Text = Buffer7
Text1(7).Text = Buffer8
Text1(8).Text = Buffer9
Text1(9).Text = Buffer10
Text1(1).Text = Buffer11
Text1(11).Text = Buffer12
Text1(12).Text = Buffer13
Text1(13).Text = Buffer14
Text1(14).Text = Buffer15
Text1(15).Text = Buffer16
Text1(16).Text = Buffer17
Text1(17).Text = Buffer18
Text2(0).Text = Buffer9
Text2(1).Text = Buffer20
Text2(2).Text = Buffer21
Text2(3).Text = Buffer22
Text2(4).Text = Buffer23
Text2(5).Text = Buffer24
Text2(6).Text = Buffer25
Text2(7).Text = Buffer26
Text2(8).Text = Buffer27
Text2(9).Text = Buffer28
Text2(10).Text = Buffer29
Text2(11).Text = Buffer30
Text2(12).Text = Buffer31
Text2(13).Text = Buffer32
Text2(14).Text = Buffer33
Text2(15).Text = Buffer34
Text2(16).Text = Buffer35
Text2(17).Text = Buffer36
Text3(0).Text = Buffer37
Text3(1).Text = Buffer38
Text3(2).Text = Buffer39
Text3(3).Text = Buffer40
Text3(4).Text = Buffer41
Text3(5).Text = Buffer42
Text3(6).Text = Buffer43
Text3(7).Text = Buffer44
Text3(8).Text = Buffer45
Text3(9).Text = Buffer46
Text3(10).Text = Buffer47
Text3(11).Text = Buffer48
Text3(12).Text = Buffer49
Text3(13).Text = Buffer50
Text3(14).Text = Buffer51
Text3(15).Text = Buffer52
Text3(16).Text = Buffer53
Text3(17).Text = Buffer54
onerror:
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.120.185.130
→
08/16 19:18, , 1F
08/16 19:18, 1F
推
08/16 23:59, , 2F
08/16 23:59, 2F
→
08/16 23:59, , 3F
08/16 23:59, 3F