[编程申请]：关于号码的选取

韵律

我是一间小灵通店的工作人员，近来小灵通促销，常会收到一些新的小灵通号码。同于号码几乎有3000个，而文件是用TXT存的，最让人头痛的是每一个号码占用了一行。由于我们这4、7结尾的号码没人要，所以我想找个能把它们进行自动分类的软件，比如，所有1字尾的号码存到save1文件，有2字尾的号码存到save2文件。。。。以此类推。而且存下的文件最好能每6个号码成为一行。方便打印出来。

coolzhb

最初由 韵律 发布
[B]我是一间小灵通店的工作人员，近来小灵通促销，常会收到一些新的小灵通号码。同于号码几乎有3000个，而文件是用TXT存的，最让人头痛的是每一个号码占用了一行。由于我们这4、7结尾的号码没人要，所以我想找个能把它?.. [/B]

朋友，这好像与CAD没关系，不用编程，用EXCEL读出数据，再分类一下吧！

myfreemind

可以实现,你先将每行的数据读出,然后存到数组中,再进行判断尾号,将同尾号的号码存为你需要的文件!

时间仓促，写这个程序给你，只统计尾号是7,8的号码，其他尾号你自己在程序中添加即可！代码如下：

Dim i As Integer
Dim zz As Integer
Dim textline()

Open "l:\小灵通.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve textline(0 To i)
Line Input #1, textline(i)
Debug.Print textline(i)
i = i + 1
zz = i
Loop
Close #1
For i = 0 To zz - 1
Select Case Right(textline(i), 1)
Case 7
    Open "l:\save7.txt" For Append As #1
    Print #1, textline(i)
    Close #1
Case 8
    Open "l:\save8.txt" For Append As #1
    Print #1, textline(i)
    Close #1
End Select
Next