VB6 将 headers 的字符串映射为整数

Question

我正在尝试将 CSV 文件解析为 VB6 应用程序，以便使用表单中已有的单个记录更新代码更新 SQL 上 table 上的多条记录。 CSV 文件将有一个 header 行，可用于验证进入 ADODB 记录集中正确位置的信息。在 C++ 中，您可以使用地图表示

map<String s, int x> column 
 column<"First Name", -1>
 column<"Last Name",-1>

然后创建一个跨逗号分隔值的计数器，如果第三个值是姓氏，则可以编写代码来更改 column<"Last Name",-1> 到 column<"Last Name",3> 并且如果 x != -1 在任何地图中文件都可以使用，我将遍历剩余的记录并使用类似于

的东西解析到容器中

strLastName = Array<column[3]>

将记录值分配给正确的变量。我对 VB6 还是很陌生，我怎样才能在 VB6 中完成类似的事情，应该使用什么容器？到目前为止我有

Public Sub GetImportValues()
On Error GoTo GetImportValues_Error:
Dim intFileNum As Integer

Open Path For Input As #intFileNum

Do Until EOF(intFileNum)

Line Input #intFileNum, vbCrLf

FunctionThatSavesInformationToSQL

Loop

Close #intFileNum



GetImportValues_Exit:
    Exit Sub

GetImportValues_Error:
    Err.Source = "frmMemberAdd.GetImportValues" & " | " & Err.Source
    Err.Raise Err.Number, Err.Source, Err.Description
End Sub

使用对话框 return在单独的函数中使用 App.path 将路径作为字符串

************************************************ ******** 对答案略有改动 collection 符合我的要求，但我确实必须将其更改为字典，因为你不能 collection 上的 return 项，这使我无法比较项和更改键但是字典可以。如果您使用字典，请确保切换项目和键。

Answer 1

如果我没有正确理解你的问题，那么你正在尝试创建地图（Dictionary<string, int> 在 C# 中）。在 VB6 中，您可以为此目的使用 Collection - 它大致等同于 C# 的 Dictionary<string, object>。它使用 String 键并将所有值存储为 Variant。例如：

Dim oColl As Collection

Set oColl = New Collection
oColl.Add -1, "ColumnName"

Dim nColumnIndex As Long

'Get column index for column name.
nColumnIndex = oColl.Item("ColumnName")

If nColumnIndex = -1 Then
    nColumnIndex = ...

    'When you want to update a column index in the collection, you
    'first have to remove the item and then add it back with the right
    'index.
    oColl.Remove "ColumnName"
    oColl.Add nColumnIndex, "ColumnName"
End If

编辑 1:

关于 VB6 的一个警告：您会看到很多示例这样做：

Dim oObj As New SomeClass

可以在 VB.Net 中执行此操作，但 永远不要在 VB6 中执行此操作。在单独的语句中声明和实例化对象，因为单语句形式生成的代码在每次使用前检查 oObj 是否 Nothing 并设置为一个实例。这会减慢您的代码速度（不必要的检查），如果您使用的实例本应消失，则会产生难以发现的错误。

总是这样做：

Dim oObj As SomeClass
Set oObj = New SomeClass
...

'Clean up the object when you're done with it. Remember, there's
'no garbage collection in COM / VB6, you have to manage object
'lifetimes.
Set oObj = Nothing

此外，尽可能使用 Long 而不是 Integer - Long 是 32 位整数，而 Integer 只是 16 位。 VB6 类型名称经常会产生误导。 Here's an old answer 我的更详细一些（与您的问题没有严格关系但很有用）。

或者，您可以围绕 .NET Dictionary class 创建一个简化的包装器并将其公开为 COM 对象：这将允许您从 VB6 调用它。这可能（有点）比 Collection 慢，并且它需要 VB6 项目的 .NET Framework 运行.

编辑 2:

正如@CMaster 评论的那样，Dictionary 可从 Microsoft Scripting Runtime 库中获得 - 您需要添加对它的引用才能使用它（这就是为什么我更喜欢 Collection - 它没有依赖性）。 This answer 有关于如何使用它的详细信息。

VB6 将 headers 的字符串映射为整数

VB6 map string to integer for headers

sql

csv

vb6

containers

adodb