各位老大，批量录入大量字符串什么办法好一些？谢谢了

我有这样的需求，就是word文档上面有很多7位的字符串，他们之间以空格分开，但空格的数目不一定，有什么好的办法可以把这么多号码一次性寸入到数据库当中吗？我是不是可以建立一个大的文本框，换行的时候怎么处理哦？谢谢拉 --------------------编程问答-------------------- 就是一个word文件上面有上百个数字串，一行四到五个，中间有空格分开，但是空格数目不一定。如何把这些数字串录入到数据库中？如果直接读word应该比较麻烦吧？所以我设计了一个大的文本框，把他们复制进去。问题是如何处理这么多字符串？ --------------------编程问答-------------------- Dim strSrc As String, strItems() As String
Do Until InStr(strSrc, Space(2))
    strSrc = Relace(strSrc, Space(2), Space(1))
Loop
strItem = Split(strSrc, Space(1)) --------------------编程问答-------------------- strItems = Split(strSrc,   Space(1)) --------------------编程问答--------------------

private sub Command1_Click()

    dim a() as string, i as long

    a = split(replace(Text1.Text, vbcrlf, " "), " ")

    for i=0 to ubound(a)

        if lenb(a(i))<>0 then debug.print a(i)

    next

end sub

--------------------编程问答-------------------- 楼上老鸟，lenb那句子在这里怎么解释啊？不太明白了 --------------------编程问答-------------------- 用split出来的数组中，两个空格之间产生的a(i)是个空字符串，反过来需要的就是长度非零的字符串。
lenb(a(i))<>0是VB中判断是否非空字符串最快的方式。 --------------------编程问答-------------------- 哦。谢谢你，牛人。那么我还要在存之前要检验这些字符串是不是7为数字串，也就是lenB90=14，同时判断这两个应该怎么处理呢？谢谢你 --------------------编程问答--------------------

if a(i) like "#######" then debug.print a(i)

--------------------编程问答-------------------- VB老鸟确实不错，不过我觉得 of123 的解决方案更具技巧性。 --------------------编程问答-------------------- VB老鸟确实不错，不过我觉得 of123 的解决方案更具技巧性。

补充：VB ,  数据库(包含打印，安装，报表)