如何使用VBScript从该字符串中的静态位置显示字符串的一部分？

学习脚本

我有一个使用VBScript从数据库中获得的列表（...表示还有另一个代码）

<%
...
for each x in rs.Fields
Response.Write(x & "<br />")
next
...
%>

我得到以下结果x：

Eventid=1289,EventActive=True,EventTemplate=13,FeatureEvent=True,EventTitle=BackToSchool,EventCompany=SummerKids
Eventid=981112,EventActive=True,EventTemplate=temp199,FeatureEvent=True,EventTitle=SummerSale 2015,EventCompany=KidsClothesOnSale
Eventid=A20BK913,EventActive=False,EventTemplate=green001,FeatureEvent=False,EventTitle=Example Event Title,EventCompany=TEST
Eventid=MO72221,EventActive=False,EventTemplate=817AA11,FeatureEvent=False,EventTitle=TEST TITLE FOR EVENT,EventCompany=SELF TEST

如何x使用VBScript在每个这样的窗口中仅显示EventTitle ？

BackToSchool
Summer Sale 2015
Example Event Title
TEST TITLE FOR EVENT

键

如果您的数据是一致的（对中始终有六个逗号分隔的key=value对，对中不存在逗号key=value，等等），那么您可以将字符串拆分为逗号以获取key=value对，然后拆分第5个key=value对=以获取值。

例如：

For Each x In rs.Fields
    kv = Split(x, ",")                   ' Get key=value pairs
    Response.Write Split(kv(4), "=")(1)  ' Output the value of the 5th pair
    Response.Write "<br>"
Next

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。