使用VBA从文本文件中的行尾删除逗号

Question

我已经编写了VBA代码，将逗号分隔的数据元素输出到文本文件，然后将其导入到分隔的应用程序中。但是，我陷入了如何删除文本文件中生成的行尾逗号的问题。
以下是我的数据的示例：

Scenario,Capital,AFE
Capital Array,Drilling Capex 80/20,Replace,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

Capital Array,Facilities Tangible,Replace,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,250,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

Capital Array,Recompletion 80/20,Replace,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,

Answer 1

最好的解决方案是不要首先添加结尾逗号。为此，您需要修改未显示给我们的代码。

或者，如果CSV创建代码是您不想触摸的黑匣子，则可以手动删除字符串中的最后一个字符：

myString = "a,b,c,d,"

If Right(myString, 1) = "," Then
    myString = Left(myString, Len(myString) - 1)
End If

' myString is now "a,b,c,d"