vb高手进，多行文本存入二维数组问题

显示全部楼层 · 2008-9-28 07:54:15

每行有144个“0”和“1”组成的数。先把每行为144个数变成每行8个数18行，然后将每8列18行的数存入二维数组将行列转换，并输出到另一个多行文本框

千问 · 2008-9-28 07:54:15

'我这个是在2楼的基础上改进的,更简洁'在窗体上加入控件text1,text2,command1,text1用来输入每行有144个“0”和“1”组成的数'text2(text2 的Multiline设置为True)用来显示结果,command1表示开始转换'复制下面代码到窗体中，在text1中输入有关数据，按command1，即可在text2中看到结果。'====代码部分====Private Sub Command1_Click()Dim i As Integer, j As Integer, k As IntegerDim t(7, 17) As String, Tmp As StringFor i = 0 To...

千问 · 2008-9-28 07:54:15

'在窗体上加入控件text1,text2,command1,text1用来输入每行有144个“0”和“1”组成的数，text2用来显示结果,command1表示开始转换'复制下面代码到窗体中，在text1中输入有关数据，按command1，即可在text2中看到结果。'====代码部分====Private Sub Command1_Clic...

千问 · 2008-9-28 07:54:15

x&=str(y)'y即144个1或0dim z(17) as string do while i<18z(i)=mid(x&,i*8)i=i+1loopdim xyz()redim xyz(18,dongt)dongt=1i=0do while i<18xyz(i,dongt)=z(i)i=i+1lo...

千问 · 2008-9-28 07:54:15

Private Sub Command1_Click() Dim a() Dim i As Integer, j As Integer, k As Integer Dim strLine As String, x As String Open "c:\1.txt" For Input As #1 '打开文件,改成你自己的文件路径Do Wh...