我有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