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

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

access-vba vba ms-access

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 年前

Jay Riggs 16 年前

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

以下是我的代码:

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

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

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

1 年前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

1 年前

Eric · 我有邮政编码替换问题Excel VBA

1 年前

Chasester · VBA使用嵌套的DIV抓取URL

1 年前

jkp · 特殊字符复选标记

1 年前

Iron Man · 代码插入和复制到错误的工作表

1 年前

NoFafo · 将文本框放入数组进行格式化

1 年前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

1 年前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

1 年前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

1 年前