代码之家 › 专栏 › 技术社区 › jim

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

access-vba vba ms-access

4

jim · 技术社区 · 16 年前

我在MS Access窗体上有一个文本框,用户将从Excel电子表格中复制一列数字。我需要接受这个输入并使用它作为参数来构建查询。我有这样的代码

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

我希望能够从用户那里构建一个输入列表,但是我不知道如何在换行符上拆分它。我试过了“\n\r”、“”\n“。”\ R“,vbcrlf,vblf。输入看起来像是“12345[]23456”,每个数字之间都有框字符。

谢谢

2 回复 | 直到 16 年前

1

11

Jay Riggs 16 年前

我被拆分为使用vbcrlf为我工作。我还将split的结果写入了一个字符串数组。

以下是我的代码:

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

2

3

manji 16 年前

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))