换行符时MS Access 2003 VBA字符串拆分

时间:2009-09-17 14:53:44

标签: ms-access vba access-vba

我在MS Access表单上有一个文本框,用户将从excel电子表格中复制一列数字。我需要获取此输入并将其用作参数来构建查询。我的代码看起来像这样

Dim data as variant
Dim input as String
data = Split(input,vbLf)

我希望能够构建用户输入的列表,但我无法弄清楚如何在换行符上拆分它。我试过“\ n \ r”,“\ n”。 “\ r”,vbCrLf,vbLf。输入看起来像“12345 [] [] 23456”,每个数字之间有方框字符

谢谢

2 个答案:

答案 0 :(得分:11)

我让Split使用vbCrLf为我工作。我还将Split的结果写入String数组。

这是我的代码:

Dim data() As String
Dim yourInput As String
data = Split(yourInput, vbCrLf)

答案 1 :(得分:3)

vbCRLF为我工作,尝试:Strings.Chr(13) & Strings.Chr(10) (which is vbCRLF)

尝试查看这两个框的ASCII代码:

    //ex for input = "12345[][]23456"
    Strings.Asc(Strings.Mid(input, 6, 1)) 
    Strings.Asc(Strings.Mid(input, 7, 1))