Basic程序好久没有编过了
来自Jamesqi
--James Qi 2008年12月15日 (二) 16:34 (CST)
我好像有多年没有编程了，现在虽然做的与网络、电脑有关的工作，但各种“高级”软件工具太多，避免了需要编写程序代码的过程。
这两年在Wiki网站的编辑中也涉及到大量需要导入的数据处理成XML格式，一般用UltruEdit中的“宏”都可以解决，实在难以解决的也都让公司的程序员帮忙进行处理。
昨天在处理手机号段的时候，因为需要进行运算、比较，用“宏”是无能为力的，年底公司的程序员也忙，如果交给那边去还要等，因为也不是很复杂，于是干脆拿MS Office中的Visual Basic来编程试一试。
以前用各种Basic语言以及单片机汇编程序可是我的拿手好戏，但生疏了多年，这个Office中的Visual Basic环境、语法也有不同，害得我折腾了好半天，本来只是一个非常简单的数据处理。
不过对着帮助不断看，然后反复试验，终于还是把程序凑合起来，算是处理好了那些数据。本来准备把那个短程序贴在这里的，后来发现因为对环境不熟悉，已经关闭丢失了，只好等以后再需要的时候重新编吧，只是那些文件读写的控制语句找起来要麻烦一些。
乘现在还大概记得，回忆如下，实际用起来可能还要进行一些修改完善：
Sub test()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, f1, f2, l, s, e, c, w, i
Set fs = CreateObject("Scripting.FileSystemObject")
Set f1 = fs.OpenTextFile("c:\test1.txt", ForReading)
Set f2 = fs.OpenTextFile("c:\test2.txt", ForWriting, True)
Do While f1.AtEndOfStream <> True
l = f1.readline
s = Mid(l, 1, 7)
e = Mid(l, 13, 7)
c = Mid(l, 25)
For i = 0 To Val(e) - Val(s)
w = Str$(s+i) + "-" + c
w = Trim(w)
f2.writeline (w)
Next
Loop
f1.Close
f2.Close
End Sub
| 标签：Basic、Visual Basic、编程。 |
相关内容：
|
