问问题之前,你最好去看看:http://www.csdn.net/expert/faq.shtm
解决方案 »
- 怎样让 CommonDialog 的 Save as 对话框不能更改保存文件的路径?
- 动态创建多个OptionButton控件如何分组?
- 如何打印屏幕的内容?
- 打印问题,请各位老大指教!
- datagrid的滚动条问题?
- 重复次数查询
- ★ 使用Name函数的困惑,书上写错了吗?!请各位高手看看!! ★
- 如何在VB创建SQL SERVER2000用户?
- 请问:用VB开发的系统,离开了VB环境能不能独立运行?在制作安装文件时应该将哪些文件加入?
- 在VB里调用压缩软件分盘压缩
- 如何用vb6判断你输入的是一个汉字?汉字编码是从多少到多少?
- 910,为何我的贴子看不到了?就是"910请看"那片,进去什么也没有???
Dim lineNum as long,a$,b$
close #1
open "文件名.txt" for input as #1
line input #1,b$
linenum=1
do while not eof(1)
line input #1,a$
linenum=linenum+1
if linenum<>3 then b=b & chr(13) & chr(10) & a
loop
close #1
open "文件名.txt" for output as #1
print #1,b
close #1