Microsoft Access 2007 with VBA - Parse Textbox,vbCrLf分隔

时间:2011-10-12 18:42:48

标签: vba character delimited-text

通过一些残酷的命运扭曲,我找到了一份维护完全基于Microsoft Access 2007构建的系统的工作。

无论如何,我在表单上有一个TextBox。我想解析这个TextBox的内容。我想声明两个字符串,字符串1等于TextBox的第一行,字符串2等于第二行,依此类推。

我想我需要一些类似于下面的东西,但我无法理解它。

由于

约翰

Dim stringOne As String
Dim stringTwo As String

Dim contentsOfTextBox As Array

contentsOfTextBox = Split("txtMyTextBox.Text", "vbCrLf")

stringOne = contentsOfTextBox[0].Text
stringTwo = contentsOfTextBox[1].Text

1 个答案:

答案 0 :(得分:2)

我认为你的意思是

contentsOfTextBox = Split(Me.txtMyTextBox, vbCrLf)

stringOne = contentsOfTextBox(0)
stringTwo = contentsOfTextBox(1)

然而,这似乎可能导致一个尴尬的想法。最好用这个来描述你想要解决的现实问题。