1
<%
2function GetPos(start,word)
3 dim i,IntIndex,MaxIndex
4 dim flag
5 flag = 1
6 MaxIndex = 0
7 for i=0 to ubound(ArrWord)
8 if i<>cint(word) then
9 IntIndex = Instr(start+len(ArrWord(word)),StrObj,ArrWord(i))
10 if IntIndex>0 then
11 flag = flag + 1
12 'response.write flag & ":" & i & "<br>"
13 if MaxIndex<(IntIndex+len(ArrWord(i))) then
14 MaxIndex = IntIndex+len(ArrWord(i))
15 end if
16 end if
17 end if
18 next
19 if flag = ubound(ArrWord)+1 then
20 GetPos = "(" & start & "," & cstr(MaxIndex-start) & ")"
21 else
22 GetPos = "(1,2,3)"
23 end if
24
25end function
26
27function GetNearest()
28 dim i,StrResult,IntIndex,Seq,StrResult1
29 StrResult = ","
30 StrResult1 = ","
31 for i = 0 to ubound(ArrWord)
32 Seq = 1
33 IntIndex = Instr(Seq,StrObj,ArrWord(i))
34 do until IntIndex<1
35 StrResult = StrResult & IntIndex & ","
36 StrResult1 = StrResult1 & i & ","
37 Seq = IntIndex + Len(ArrWord(i))
38 IntIndex = Instr(Seq,StrObj,ArrWord(i))
39 loop
40 next
41 StrResult = left(StrResult,len(StrResult)-1)
42 StrResult = right(StrResult,len(StrResult)-1)
43 StrResult1 = left(StrResult1,len(StrResult1)-1)
44 StrResult1 = right(StrResult1,len(StrResult1)-1)
45 GetNearest = StrResult & "|" & StrResult1
46end function
47
48dim StrObj,ArrWord,ArrDotList,ArrWordList,ArrAll,i,ArrLen,StrLenList
49'StrObj="wer张三色单峰驼retert李四李四李四sdf张三色单峰驼rete34王五53赵六543543rt李四sdfwe"
50StrObj="aaa张三bbbb李四李四李四ccc张三dddddddd王五e赵六f李四ggg王五热土hhhhhhh赵六"
51ArrWord = Array("张三","李四","王五","赵六","刘七")
52ArrAll = split(GetNearest,"|")
53ArrDotList = split(ArrAll(0),",")
54ArrWordList = split(ArrAll(1),",")
55StrLenList = ""
56
57for i=0 to ubound(ArrDotList)
58 StrLenList = StrLenList & GetPos(ArrDotList(i),ArrWordList(i))
59next
60'response.write StrLenList & "<br>"
61StrLenList = left(StrLenList,len(StrLenList)-1)
62StrLenList = right(StrLenList,len(StrLenList)-1)
63
64ArrLen = split(StrLenList,")(")
65
66dim MinMarginId,MinMargin,ArrTemp,MinMarginStart
67MinMargin = 100000
68for i=0 to ubound(ArrLen)
69 ArrTemp = split(ArrLen(i),",")
70 if ubound(ArrTemp)<2 then
71 if cint(ArrTemp(1))<MinMargin then
72 MinMargin = cint(ArrTemp(1))
73 MinMarginStart = cint(ArrTemp(0))
74 MinMarginId = i
75 end if
76 end if
77next
78
79if MinMargin<>100000 then
80 response.write "包含所要求多个字符串的最短字符串为:" & mid(StrObj,MinMarginStart,MinMargin)
81else
82 response.write "包含所要求多个字符串的最短字符串为:制定的某字符串在整个字符串中不存在"
83end if
84
85
86
87%>
88
<%2
function GetPos(start,word)3
dim i,IntIndex,MaxIndex4
dim flag5
flag = 16
MaxIndex = 07
for i=0 to ubound(ArrWord)8
if i<>cint(word) then9
IntIndex = Instr(start+len(ArrWord(word)),StrObj,ArrWord(i))10
if IntIndex>0 then11
flag = flag + 112
'response.write flag & ":" & i & "<br>"13
if MaxIndex<(IntIndex+len(ArrWord(i))) then14
MaxIndex = IntIndex+len(ArrWord(i))15
end if16
end if17
end if18
next 19
if flag = ubound(ArrWord)+1 then20
GetPos = "(" & start & "," & cstr(MaxIndex-start) & ")"21
else22
GetPos = "(1,2,3)"23
end if24
25
end function26
27
function GetNearest()28
dim i,StrResult,IntIndex,Seq,StrResult129
StrResult = ","30
StrResult1 = "," 31
for i = 0 to ubound(ArrWord)32
Seq = 133
IntIndex = Instr(Seq,StrObj,ArrWord(i))34
do until IntIndex<135
StrResult = StrResult & IntIndex & ","36
StrResult1 = StrResult1 & i & ","37
Seq = IntIndex + Len(ArrWord(i))38
IntIndex = Instr(Seq,StrObj,ArrWord(i))39
loop 40
next41
StrResult = left(StrResult,len(StrResult)-1)42
StrResult = right(StrResult,len(StrResult)-1)43
StrResult1 = left(StrResult1,len(StrResult1)-1)44
StrResult1 = right(StrResult1,len(StrResult1)-1)45
GetNearest = StrResult & "|" & StrResult146
end function47
48
dim StrObj,ArrWord,ArrDotList,ArrWordList,ArrAll,i,ArrLen,StrLenList49
'StrObj="wer张三色单峰驼retert李四李四李四sdf张三色单峰驼rete34王五53赵六543543rt李四sdfwe"50
StrObj="aaa张三bbbb李四李四李四ccc张三dddddddd王五e赵六f李四ggg王五热土hhhhhhh赵六"51
ArrWord = Array("张三","李四","王五","赵六","刘七")52
ArrAll = split(GetNearest,"|")53
ArrDotList = split(ArrAll(0),",")54
ArrWordList = split(ArrAll(1),",")55
StrLenList = ""56
57
for i=0 to ubound(ArrDotList)58
StrLenList = StrLenList & GetPos(ArrDotList(i),ArrWordList(i))59
next60
'response.write StrLenList & "<br>"61
StrLenList = left(StrLenList,len(StrLenList)-1)62
StrLenList = right(StrLenList,len(StrLenList)-1)63
64
ArrLen = split(StrLenList,")(")65
66
dim MinMarginId,MinMargin,ArrTemp,MinMarginStart67
MinMargin = 10000068
for i=0 to ubound(ArrLen)69
ArrTemp = split(ArrLen(i),",")70
if ubound(ArrTemp)<2 then71
if cint(ArrTemp(1))<MinMargin then72
MinMargin = cint(ArrTemp(1))73
MinMarginStart = cint(ArrTemp(0))74
MinMarginId = i75
end if76
end if77
next78
79
if MinMargin<>100000 then80
response.write "包含所要求多个字符串的最短字符串为:" & mid(StrObj,MinMarginStart,MinMargin)81
else82
response.write "包含所要求多个字符串的最短字符串为:制定的某字符串在整个字符串中不存在"83
end if84
85
86
87
%>88