Asp classic 如何在经典asp中删除字符串中的字符直到某一点？

我有一个字符串，它在任何时候都可能包含或不包含一个或多个/字符。我希望能够基于此字符串创建一个新字符串。新字符串将包含原始字符串中最后一个/之后的每个字符。

听起来像是要从URL获取文件名。在任何情况下，它都是相同的函数。关键是使用InStrRev函数查找第一个/char，但从右边开始。下面是函数：

Function GetFilename(URL)
   Dim I
   I = InStrRev(URL, "/")
   If I > 0 Then
      GetFilename = Mid(URL, I + 1)
   Else
      GetFilename = URL
   End If
End Function

---

听起来你想从URL获取文件名。在任何情况下，它都是相同的函数。关键是使用InStrRev函数查找第一个/char，但从右边开始。下面是函数：

Function GetFilename(URL)
   Dim I
   I = InStrRev(URL, "/")
   If I > 0 Then
      GetFilename = Mid(URL, I + 1)
   Else
      GetFilename = URL
   End If
End Function

---

将其拆分为多个部分，然后获取最后一部分：

a = split("my/string/thing", "/")
wscript.echo a(ubound(a))

---

注意：字符串为空时不安全。

将其拆分为多个部分并获取最后一部分：

a = split("my/string/thing", "/")
wscript.echo a(ubound(a))

---

注意：字符串为空时不安全。

这不是VBScript，而是VB。它在经典ASP中不起作用。（如果你愿意，我可以帮你修复）我想我知道这个错误，但是我的系统上没有经典的ASP设置来检查。如果你想纠正它，请随意。谢谢。仔细看，只有VBScript中不存在的变量类型，其余的都可以。您仍然有一个缺陷，当URL没有任何斜杠（例如“Page.aspx”）时，它将返回空，而我认为它应该返回整个URL。无论如何，这都是纯VBScript，所以您可以在您的计算机上创建扩展名为

.vbs

的文件，用记事本编辑并执行-Windows有内部VBScript引擎。是的，我以为是这样，但不是肯定的，无法测试。添加了在未找到/时返回整个URL的功能。谢谢。那不是VBScript，是VB。它在经典ASP中不起作用。（如果你愿意，我可以帮你修复）我想我知道这个错误，但是我的系统上没有经典的ASP设置来检查。如果你想纠正它，请随意。谢谢。仔细看，只有VBScript中不存在的变量类型，其余的都可以。您仍然有一个缺陷，当URL没有任何斜杠（例如“Page.aspx”）时，它将返回空，而我认为它应该返回整个URL。无论如何，这都是纯VBScript，所以您可以在您的计算机上创建扩展名为

.vbs

的文件，用记事本编辑并执行-Windows有内部VBScript引擎。是的，我以为是这样，但不是肯定的，无法测试。添加了在未找到/时返回整个URL的功能。谢谢