VBScript计算新行

Question

我正在寻找一个函数，该函数如何计算从数据库返回的特定字符串中有多少新行。

我见过执行此JavaScript和PHP的函数，但VBScript没有。

我想先检查字符串中是否有回车符（并对它们进行计数），然后再将它们替换为<br/>标签。

我想我可以对vbCrLf进行替换，如果找不到，则可能不会造成任何伤害。但是，出于调试目的，我现在真的很想获得计数，以便我知道它在做什么（如果它是我期望的）。

有关如何在VBScript中执行此操作的任何想法

Answer 1

您可以尝试拆分字符串并查看数组的UBound：

'Split the stringfile into lines
arrLines = Split(strData,vbCrLf)

lineNb = UBound(arrLines)

从这里改编的代码