vb6如何判断并删除字符串首行的空行或空格。

Question

我从网上搜集数据，有以下几种情况：
1、第一行是或前几行是空行；
2、第一行第一个或前几个是空格；

我想，第一个字符之前的不管是空行还是空格，都删除掉，但是不能第一个字符之后的内容。
补充：对了，还是判断是否存在回车换行，否则用数组读取每行的时候，有可能不存在回车，而导致下标越界。

Answer 1

快速将一段多行字符串去掉每一行前后空格的办法：将字符串写入任意txt文档（如:d:\1.txt）然后读取到（比如d:\2.txt中），每一行前后空格都会自动去除。

Dim a$，str1$ 'str1是你原来的字符串
rem 将字符串写入1.txt
open “d:\1.txt”for append as #1
print #1.str1
close #1
rem 写入之后会发现1.txt的内容和字符串一模一样，保留空格和空行
rem下面是读取，系统会自动去掉前后空格
Open "d:\1.txt" For Input As #1
Open "d:\2.txt" For Append As #2
Do While Not EOF(1)
Input #1, a
Print #2, a
Loop
close #2
close #1
rem 最后你会发现在2.txt中，每一行的前后空格都去掉了

Answer 2

删除行首、行尾空格可用trim、Ltrim、Rtrim函数
删除空行，可以读取一行并判断它是否为“”，是，接着读下一行。追问

删除空行，是否要用split(str1,vbcrlf)把每行放进数组，然后循环进行判断，遇到非空行时退出循环？
如果这样的话，如果判断前两行是空行，如何把之后的所有行连接起来，如果用for next，如果有1000行，就要从第3行next到1000行，会不会效率低下？
有没有办法直接从数组里把前两行减去？

追答

一次读取所有文件内容，才会用到split(str1,vbcrlf)去判断

如果用行读取，读一行判断一行就是了。

用文本文件去处理已经谈不上效率问题，可考虑别的办法解决效率问题。

追问

我不是读取文本文件呀，我是直接获取到一段文字。

本回答被提问者和网友采纳