我在MS Access表单上有一个文本框,用户将从excel电子表格中复制一列数字。我需要获取此输入并将其用作参数来构建查询。我的代码看起来像这样
Dim data as variant
Dim input as String
data = Split(input,vbLf)
我希望能够构建用户输入的列表,但我无法弄清楚如何在换行符上拆分它。我试过“\ n \ r”,“\ n”。 “\ r”,vbCrLf,vbLf。输入看起来像“12345 [] [] 23456”,每个数字之间有方框字符
谢谢
答案 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))