7490
社区成员
高手救命，遇到了读写文件的困难，帮我解决了要什么都可以
救急，遇到了写文件的困难，帮我解决了给你打电话致谢并且今后来长沙免费招待一次
我有一个100个元素的数组，已经输入数值
比如为：a(i)=(1,2,3,4,5,6……100)
现在要输出到一个abc.txt文本文件中去，在文本文件中要排列成一下矩阵(10×91)形式：
1 2 3 4 5……91
2 3 4 5 6……92
3 4 5 6 7……93
……
……
10 11 12 13 14……100
其中第二行的第一个数据从数组的第二个元素开始取起
第三行的第一个数从数组的第三个元素取起，依次类推
如果帮我解决了，贴出代码的话，给分给什么都好说
我有一个100个元素的数组，已经输入数值
比如为：a(i)=(1,2,3,4,5,6……100)
现在要输出到一个abc.txt文本文件中去，在文本文件中要排列成一下矩阵(10×91)形式：
1 2 3 4 5……91
2 3 4 5 6……92
3 4 5 6 7……93
……
……
10 11 12 13 14……100
其中第二行的第一个数据从数组的第二个元素开始取起
第三行的第一个数从数组的第三个元素取起，依次类推
如果帮我解决了，贴出代码的话，给分给什么都好说
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
jlt2000 2002-06-26
2.0版的，呵呵！直接粘贴！
Sub Main()
Dim iNum(1 To 100) As Integer
Dim strS As String
For n = 1 To 100
iNum(n) = n
Next
Open "D:\abc.txt" For Output As #1
Write #1, NumToFile(iNum)
Close #1
End Sub
Function NumToFile(iNum() As Integer) As String
Dim strOut As String
Dim m As Integer
Dim n As Integer
For m = 1 To 10
For n = m To m + 90
strOut = strOut & vbTab & CStr(iNum(n))
Next
strOut = strOut & vbCrLf
Next
NumToFile = strOut
End Function
Sub Main()
Dim iNum(1 To 100) As Integer
Dim strS As String
For n = 1 To 100
iNum(n) = n
Next
Open "D:\abc.txt" For Output As #1
Write #1, NumToFile(iNum)
Close #1
End Sub
Function NumToFile(iNum() As Integer) As String
Dim strOut As String
Dim m As Integer
Dim n As Integer
For m = 1 To 10
For n = m To m + 90
strOut = strOut & vbTab & CStr(iNum(n))
Next
strOut = strOut & vbCrLf
Next
NumToFile = strOut
End Function
jlt2000 2002-06-25
Open "D:\abc.txt" For OutPut As #1
Write #1,NumToFile(你的数组名())
Close #1
Function NumToFile(iNum() As Integer)As String
Dim strOut As String
Dim m as Integer
Dim n as Integer
For m=1 to 10
For n=n to n+90
strOut=strOut & vbTab & iNum(m)
Next
If m<10 then strOut=strt & vbCrLf
Next
End Function
Write #1,NumToFile(你的数组名())
Close #1
Function NumToFile(iNum() As Integer)As String
Dim strOut As String
Dim m as Integer
Dim n as Integer
For m=1 to 10
For n=n to n+90
strOut=strOut & vbTab & iNum(m)
Next
If m<10 then strOut=strt & vbCrLf
Next
End Function
footballboy 2002-06-25
呵呵，刚才回答过这个问题，不介意我再答一次吧
Private Sub Command1_Click()
Dim a(99) As Long
Dim i As Long, j As Long
Dim str As String
For i = 0 To 99
a(i) = Int(99 * Rnd(i))
Next
For i = 0 To 9
For j = i To i + 89
str = str & a(j) & " "
Next
If i <> 9 Then
str = str & a(i + 90) & vbCrLf
Else
str = str & a(i + 90)
End If
Next
Dim filenum As Long
filenum = FreeFile
Open "c:\abc.txt" For Output As #filenum
Print #filenum, str
Close #filenum
End Sub
Private Sub Command1_Click()
Dim a(99) As Long
Dim i As Long, j As Long
Dim str As String
For i = 0 To 99
a(i) = Int(99 * Rnd(i))
Next
For i = 0 To 9
For j = i To i + 89
str = str & a(j) & " "
Next
If i <> 9 Then
str = str & a(i + 90) & vbCrLf
Else
str = str & a(i + 90)
End If
Next
Dim filenum As Long
filenum = FreeFile
Open "c:\abc.txt" For Output As #filenum
Print #filenum, str
Close #filenum
End Sub
IsMe 2002-06-25
private function getFmtString(aNum()as integer)as string
dim strT as string
dim I as integer
dim J as integer
strt=""
for i=1 to 10
for j=i to i+90
strt=strt & vbtab & aNum(j)
next j
if i<10 then
strt=strt & vbcrlf
end if
getfmtstring=mid(strt,2)
end function
使用上面函数，生成的字符串包含了要求的内容，然后将该字符串写入文件即可
dim strT as string
dim I as integer
dim J as integer
strt=""
for i=1 to 10
for j=i to i+90
strt=strt & vbtab & aNum(j)
next j
if i<10 then
strt=strt & vbcrlf
end if
getfmtstring=mid(strt,2)
end function
使用上面函数，生成的字符串包含了要求的内容，然后将该字符串写入文件即可
【C#进阶3-4】C#设计模式 既然上面的实现会运行多个线程执行，那我们对于多线程的解决方案自然就是使GetInstance方法在同一时间只运行一个线程运行就好了，也就是我们线程同步的问题了(对于线程同步大家也可以参考我线程同步的文章),...
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
自己写操作系统学习总结 怎样自己写一个简单的操作系统？ ... ...第二次写的时候，基本定下几个核心模块, 启动/内存管理/进程管理/用户环境/磁盘驱动/块缓冲/文件系统/中断，然后就开始发重新明轮子(不参考其他OS代码)，
Thinkpad常见问题大全（转载联想工程师博客） 想要收藏本篇文章请下载Word版 Q：我想升级成VISTA，想问一下，升级之后一键恢复是恢复到XP还是VISTA?A：如果从隐含分区恢复出厂设置，那当然是恢复到出厂时预装的系统；如果是用R&
WEB开发文档2 总结 http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载...显示数据下载中文名文件时保存文件名乱码问题关于用ASP.net绘图的问题...
游戏外挂基本原理及实现 我们写的替换函数要和原来的函数一致才行，就是说它的函数输出什么样的，我们也要输出什么样子的函数，而且参数，参数顺序都要一样才行，然后在我们的函数里面调用真正的WinSock32.DLL里面的函数就可以了。...
电脑硬盘修复方法 此类现象比较常见，我们只要变换硬盘的mode模式即可解决问题，例如我们可以将LBA模式变换为normal或large模式，待低格硬盘后再变换为原来的LBA模式即可解决问题。 3、不能用FDISK进行分区，或某些分区不能删除...
如何从零开始写一个操作系统？ 和老师一番讨价还价之后，我成为全年级几百号人里唯一一个自己写内核/整个学期都不去教室听课/任何作业都不做的那个人（代表着我的身边将没有可以提供参考的人，任何资料都只能自己找）。 一开始买了《30天自制操作...
C++之solmyr小品文 画外音：今天是个大晴天，温暖的阳光透过窗子照进了这间宽敞的办公室，办公室里三三两两的人们正在各自的计算机前努力工作，一切都显得那么的安静、祥和、有条不紊 …… “啊～！救命啊！Solmyr 你又用文件夹砸我...
史上最全电脑硬盘修复方法 此类现象比较常见，我们只要变换硬盘的mode模式即可解决问题，例如我们可以将LBA模式变换为normal或large模式，待低格硬盘后再变换为原来的LBA模式即可解决问题。http://www.iqwork.com/ 3、不能用FDISK进行...
性能自学路线图 例如：为什么我使用一个命令的时候，系统告诉我找不到该目录，我要如何限制使用者的权限等问题，这些问题其实都不是很难的，只要了解了Linux的基础之后，应该就可以很轻易的解决掉这方面的问题。而有些朋友们常常一...
