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

Question

我有一个使用 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

如何使用 VBScript 在每个 x 中仅显示 EventTitle？

BackToSchool
Summer Sale 2015
Example Event Title
TEST TITLE FOR EVENT

Answer 1

如果您的数据是一致的(始终有六个逗号分隔的key=value对，key=value对中不存在逗号等)，那么您可以用逗号分割字符串以获得 key=value 对，然后用 = 分割第五个 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