|
主题:[求助]关于新闻评论出现下标越界的错误提示如何解决 [收藏主题] |
求助各位科讯程序的前辈下面问题是代码问题,还是后台设置问题啊?我该如何解决?百度了一晚上也没找到个所以然(我是代码小白的 ),小弟在这里先谢谢了 今天发现评论问题如图 Public Function FilterIllegalChar(ByVal Content) If IsNul(Content) Then Exit Function Dim SplitStrArr,K:SplitStrArr=split(Setting(55),vbCrlf) For K=0 To Ubound(SplitStrArr) If Not IsNul(SplitStrArr(K)) Then Content=Replace(Content,Split(SplitStrArr(K),"=")(0),Split(SplitStrArr(K),"=")(1)) End If Next FilterIllegalChar=Content End Function 红色的就是提示错误的3746行 而且所有评论显示为空如下图 |
|
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |