如果是使用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)ABC 2)DFG1 3)G231EG 4)REWEREW1 5)DSFWRE3 6)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