Question

我目前有一个我正在处理的序列号库存数据库。我使用带有空格分隔符的split（）函数将数据分成单独的数据点，但是我使用的扫描程序使用了“返回”的分隔符。或者＆＃39;标签＆＃39;

有没有办法在split（）函数中使用这些函数？

我不相信标签是可能的，因为标签跳到了下一个＆＃39;按钮...所以当扫描仪输入例如（data1 [tab] data2 [tab] data3 [tab]）到文本框中时，我的输出只是＆＃34; data1＆＃34; ...我相信因为然后访问利用＆＃39;标签＆＃39;按钮，只是从我的文本框移动到下一个项目。实际上，它甚至不会显示超过第一组的任何数据，因为它看到了标签并继续前进。有什么方法可以改变这个吗？

其次，我可以将扫描仪更改为输入return或输入键作为扫描仪分隔符，创建：

DATA1 DATA2 data3

在我的文本框中。

有什么方法可以改变提供的代码来分析文本框的行并以那种方式存储信息（可能......将每行设置为i，然后运行下面的代码。

我希望这是有道理的！我目前用于空间分隔符数据的代码是：

Dim InputString() As String
Dim i As Integer
InputString = Split(InputName, "    ")
For i = 0 To UBound(InputString)
    CurrentDb.Execute "INSERT INTO InventoryInputT(InputID) VALUES ('" & InputString(i) & "')"
Next i

Answer 1

我无法理解你的问题关于标签移动到下一个按钮的评论，因为字符串中的标签与任何其他字符一样。

但是，如果您要问的是如何将包含制表符（即dim datedue as date, lastdate as date datedue = Dateadd("d", 30, lastdate) If datedue < Date() then 'do stuff End if s）的字符串拆分为分隔符，则可以使用

Chr(9)

对于“返回”字符，您可以使用以下其中一种，具体取决于它的“返回”字符类型

InputString = Split(InputName, vbTab)  ' to split on Chr(9)

显然，如果你愿意，也可以使用实际的InputString = Split(InputName, vbCr) ' to split on Chr(13) InputString = Split(InputName, vbLf) ' to split on Chr(10) InputString = Split(InputName, vbCrLf) ' to split on Chr(13)&Chr(10)而不是各种常量。

处理Split（）函数：如何调整返回/标签输入

1 个答案: