如何删除“；1“；如果是使用vbscript的最后一个字符，则从字符串开始

我在VBSCript中获得了以下代码：

Function getFacilitiesNotes(objComp)
            Dim strFacilities
            strFacilities = strFacilities & "<div id =""facilities"">"
            strFacilities = strFacilities & "<ul>"
            For intCount = 1 to objComp.Fields.Item("Facilities").Value.Count
            strFacilities = strFacilities & "<li>" & objComp.Fields.Item("Facilities").value(intCount) & "</li>"
            Next
            strFacilities = strFacilities & "</ul>"
            strFacilities = strFacilities & "</div>"
            getFacilitiesNotes = strFacilities
End Function

函数getFacilitiesNotes（objComp） 昏暗的设施 strFacilities=strFacilities&“ strFacilities=strFacilities&“

” 对于intCount=1到objComp.Fields.Item（“设施”）.Value.Count strFacilities=strFacilities&“
• ”&objComp.Fields.Item（“Facilities”）.value（intCount）&“
” 下一个 strFacilities=strFacilities&“

” strFacilities=strFacilities&“ getFacilitiesNotes=strFacilities 端函数 在上述函数中，执行循环时，代码

strFacilities=strFacilities&“
”&objComp.Fields.Item（“Facilities”）.value（intCount）和“
”

可能具有以下类型的值

1） ABC 2） DFG1 3） G231EG 4） 重写1 5） DSFWRE3 6） YRTRWER1

现在我想删除“1”，如果它是上面字符串中的最后一个字符，而它在循环中

请建议

怎么样

Function truncate_one(s)
  If Right(s, 1) = "1" Then 
    truncate_one = Left(s, Len(s) - 1) 
  Else 
    truncate_one = s
  End If
End Function

方法1）
要内联执行此操作，请按如下方式更改主代码：

...  
    For intCount = 1 to objComp.Fields.Item("Facilities").Value.Count  
        s = objComp.Fields.Item("Facilities").value(intCount)  
        strFacilities = strFacilities & "<li>" & Left(s,Len(s)-1) & Replace(s,"1","",Len(s)) & "</li>"  
    Next  
...  

...  
    For intCount = 1 to objComp.Fields.Item("Facilities").Value.Count  
        strFacilities = strFacilities & "<li>" & RemoveTrailing1(objComp.Fields.Item("Facilities").value(intCount)) & "</li>"  
    Next  
...  

并按如下方式更改主代码：

...  
    For intCount = 1 to objComp.Fields.Item("Facilities").Value.Count  
        s = objComp.Fields.Item("Facilities").value(intCount)  
        strFacilities = strFacilities & "<li>" & Left(s,Len(s)-1) & Replace(s,"1","",Len(s)) & "</li>"  
    Next  
...  

...  
    For intCount = 1 to objComp.Fields.Item("Facilities").Value.Count  
        strFacilities = strFacilities & "<li>" & RemoveTrailing1(objComp.Fields.Item("Facilities").value(intCount)) & "</li>"  
    Next  
...  

。。。
对于intCount=1到objComp.Fields.Item（“设施”）.Value.Count
strFacilities=strFacilities&“
”&RemoveTrailing1（对象比较字段.Item（“Facilities”）.value（intCount））&“
”
下一个
...  

---

在这些解决方案中，如果“.value（）”可以返回空字符串（“”）或“Null”，那么您可能需要测试这些情况。

我希望在函数中使用此选项，以便它通过替换最后一个字符串中的1来返回更改后的字符串。任何建议！！好的，我已经创建了这个函数。您可以从循环中调用它。