我如何进行连接？ VB6

Question

我有一个 ListView 填充了 TextBoxes 数据，我需要在保存所有值时以这种方式连接保存：

价值/价值

但它让我一直这样：

价值//价值

[

如何解决？

这是我的按钮保存代码：

        Dim StringPrefijoTel As String
        Dim StringNumeroTel As String


        Dim StringPrefijoCel As String
        Dim StringNumeroCel As String

        Dim i As Integer

        For i = 1 To List_Contactos.ListItems.Count
            If List_Contactos.ListItems(i).SubItems(1) = "Fijo" Then
                StringPrefijoTel = List_Contactos.ListItems(i).SubItems(2)
                If StringNumeroTel = "" Then
                    StringNumeroTel = List_Contactos.ListItems.Item(i).SubItems(3) + " / " + StringNumeroTel
                Else
                    StringNumeroTel = StringNumeroTel + " / " + List_Contactos.ListItems.Item(i).SubItems(3)
                End If


                Rs!actelcli = StringNumeroTel
                Rs!preFijo = StringPrefijoTel
            Else
                StringPrefijoCel = List_Contactos.ListItems(i).SubItems(2)
                If StringNumeroCel = "" Then
                    StringNumeroCel = List_Contactos.ListItems.Item(i).SubItems(3) + " / " + StringNumeroCel
                Else
                    StringNumeroCel = StringNumeroCel + " / " + List_Contactos.ListItems.Item(i).SubItems(3)
                End If


                Rs!preCelu = StringPrefijoCel
                Rs!Celu = StringNumeroCel
            End If
        Next i

Answer 1

您似乎试图让字符串不以 / 结尾。有几种方法可以实现这个目标，但这里是我构建代码的方式：

For i = 1 To List_Contactos.ListItems.Count
   If List_Contactos.ListItems(i).SubItems(1) = "Fijo" Then
      StringPrefijoTel = List_Contactos.ListItems(i).SubItems(2)
      StringNumeroTel = StringNumeroTel & List_Contactos.ListItems.Item(i).SubItems(3) & " / "
   Else
      StringPrefijoCel = List_Contactos.ListItems(i).SubItems(2)
      StringNumeroCel = StringNumeroCel & List_Contactos.ListItems.Item(i).SubItems(3) & " / "
   End If
Next i

Rs!actelcli = Left(StringNumeroTel, Len(StringNumeroTel) - 3)
Rs!preFijo = StringPrefijoTel
Rs!Celu = Left(StringNumeroCel, Len(StringNumeroCel) - 3)
Rs!preCelu = StringPrefijoCel

一些意见。首先，保持你的循环简单，不要担心额外的 /。你可以稍后再处理。其次，RecordSet 不需要在循环内。它不会伤害任何东西，但我会把它移到循环之外。第三，不要忘记在保存数据之前删除多余的尾随 /。

此外，连接使用 & 而不是 +。

Answer 2

您可以使用 VB6 中的替换功能将所有双斜杠替换为单斜杠，如下所示：a = Replace(StringToFind,"//","/")

我如何进行连接？ VB6

How do I make a concatenation? VB6

vb6