vbscript - 如何使用 vbscript 从字符串中删除 "1"(如果它是最后一个字符)

Question

我在 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

在上面的函数中，代码 strFacilities = strFacilities & "<li>" & objComp.Fields.Item("Facilities").value(intCount) & "</li>"执行循环时可能具有以下类型的值。

1) ABC2)DFG13)G231EG4) 重温15)DSFWRE36) YRTRWER1

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

请大家推荐!!

Answer 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