如何进行连接？VB6

我有一个

列表视图

，其中填充了

文本框

数据，在保存所有值时需要它​​以这种方式连接保存：

价值/价值

但它让我一直这样：

值//值

[

你怎么能修好它

这是我要保存的按钮代码：

Dim StringPrefijoTel作为字符串
Dim StringNumeroTel As String酒店
暗弦作为弦
Dim StringNumeroCel作为字符串
作为整数的Dim i
对于i=1，列出\u Contactos.ListItems.Count
如果列表项（i）子项（1）=“Fijo”，则
StringPrefijoTel=列表\联系人列表项（i）.子项（2）
如果StringNumeroTel=“”，则
StringNumeroTel=List_Contactos.ListItems.Item（i）.子项（3）+“/”+StringNumeroTel
其他的
StringNumeroTel=StringNumeroTel+“/”+列表\u Contactos.ListItems.Item（i）.子项（3）
如果结束
Rs！actelcli=StringNumeroTel酒店
Rs！preFijo=StringPrefijoTel
其他的
StringPrefijoCel=List\u Contactos.ListItems（i）.子项（2）
如果StringNumeroCel=“”，则
StringNumeroCel=List_Contactos.ListItems.Item（i）.子项（3）+“/”+StringNumeroCel
其他的
StringNumeroCel=StringNumeroCel+“/”+列表\u Contactos.ListItems.Item（i）.子项（3）
如果结束
Rs！preclu=StringPrefijoCel
Rs！Celu=StringNumeroCel
如果结束
接下来我

看起来您试图不让字符串以

/

结尾。有几种方法可以实现这一目标，但以下是我将如何构造代码：

用于i=1列出\u Contactos.ListItems.Count
如果列表项（i）子项（1）=“Fijo”，则
StringPrefijoTel=列表\联系人列表项（i）.子项（2）
StringNumeroTel=StringNumeroTel&List_Contactos.ListItems.Item（i）.子项（3）和“/”
其他的
StringPrefijoCel=List\u Contactos.ListItems（i）.子项（2）
StringNumeroCel=StringNumeroCel&List\u Contactos.ListItems.Item（i）.子项（3）和“/”
如果结束
接下来我
Rs！actelcli=左（StringNumeroTel，Len（StringNumeroTel）-3）
Rs！preFijo=StringPrefijoTel
Rs！Celu=左（StringNumeroCel，Len（StringNumeroCel）-3）
Rs！preclu=StringPrefijoCel

一些注释。首先，保持循环简单，不要担心额外的

/

。你可以稍后处理。其次，记录集内容不需要在循环内。这不会影响任何内容，但我会将其移到循环外。第三，在保存数据之前，不要忘了删除额外的尾随

/

a

---

此外，连接使用的是

&

而不是

+

您可以使用VB6中的Replace函数将所有双斜杠替换为单斜杠，如下所示：

a=Replace（StringToFind，“//”，“/”）

在执行串联的行上放置断点。检查被串联的变量的内容。其中一个变量将有一个尾随或前导的

/

。调试器是您的朋友。它会很快显示第一次通过循环时，字符串将以/。第二次通过循环时，字符串将以/，您可以从附加/开始。