1
<%
2
function 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
25
end function
26![](/Images/OutliningIndicators/None.gif)
27
function 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
46
end function
47![](/Images/OutliningIndicators/None.gif)
48
dim StrObj,ArrWord,ArrDotList,ArrWordList,ArrAll,i,ArrLen,StrLenList
49
'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![](/Images/OutliningIndicators/None.gif)
57
for i=0 to ubound(ArrDotList)
58
StrLenList = StrLenList & GetPos(ArrDotList(i),ArrWordList(i))
59
next
60
'response.write StrLenList & "<br>"
61
StrLenList = left(StrLenList,len(StrLenList)-1)
62
StrLenList = right(StrLenList,len(StrLenList)-1)
63![](/Images/OutliningIndicators/None.gif)
64
ArrLen = split(StrLenList,")(")
65![](/Images/OutliningIndicators/None.gif)
66
dim MinMarginId,MinMargin,ArrTemp,MinMarginStart
67
MinMargin = 100000
68
for 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
77
next
78![](/Images/OutliningIndicators/None.gif)
79
if MinMargin<>100000 then
80
response.write "包含所要求多个字符串的最短字符串为:" & mid(StrObj,MinMarginStart,MinMargin)
81
else
82
response.write "包含所要求多个字符串的最短字符串为:制定的某字符串在整个字符串中不存在"
83
end if
84![](/Images/OutliningIndicators/None.gif)
85![](/Images/OutliningIndicators/None.gif)
86![](/Images/OutliningIndicators/None.gif)
87
%>
88![](/Images/OutliningIndicators/None.gif)
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/None.gif)
4
![](/Images/OutliningIndicators/None.gif)
5
![](/Images/OutliningIndicators/None.gif)
6
![](/Images/OutliningIndicators/None.gif)
7
![](/Images/OutliningIndicators/None.gif)
8
![](/Images/OutliningIndicators/None.gif)
9
![](/Images/OutliningIndicators/None.gif)
10
![](/Images/OutliningIndicators/None.gif)
11
![](/Images/OutliningIndicators/None.gif)
12
![](/Images/OutliningIndicators/None.gif)
13
![](/Images/OutliningIndicators/None.gif)
14
![](/Images/OutliningIndicators/None.gif)
15
![](/Images/OutliningIndicators/None.gif)
16
![](/Images/OutliningIndicators/None.gif)
17
![](/Images/OutliningIndicators/None.gif)
18
![](/Images/OutliningIndicators/None.gif)
19
![](/Images/OutliningIndicators/None.gif)
20
![](/Images/OutliningIndicators/None.gif)
21
![](/Images/OutliningIndicators/None.gif)
22
![](/Images/OutliningIndicators/None.gif)
23
![](/Images/OutliningIndicators/None.gif)
24
![](/Images/OutliningIndicators/None.gif)
25
![](/Images/OutliningIndicators/None.gif)
26
![](/Images/OutliningIndicators/None.gif)
27
![](/Images/OutliningIndicators/None.gif)
28
![](/Images/OutliningIndicators/None.gif)
29
![](/Images/OutliningIndicators/None.gif)
30
![](/Images/OutliningIndicators/None.gif)
31
![](/Images/OutliningIndicators/None.gif)
32
![](/Images/OutliningIndicators/None.gif)
33
![](/Images/OutliningIndicators/None.gif)
34
![](/Images/OutliningIndicators/None.gif)
35
![](/Images/OutliningIndicators/None.gif)
36
![](/Images/OutliningIndicators/None.gif)
37
![](/Images/OutliningIndicators/None.gif)
38
![](/Images/OutliningIndicators/None.gif)
39
![](/Images/OutliningIndicators/None.gif)
40
![](/Images/OutliningIndicators/None.gif)
41
![](/Images/OutliningIndicators/None.gif)
42
![](/Images/OutliningIndicators/None.gif)
43
![](/Images/OutliningIndicators/None.gif)
44
![](/Images/OutliningIndicators/None.gif)
45
![](/Images/OutliningIndicators/None.gif)
46
![](/Images/OutliningIndicators/None.gif)
47
![](/Images/OutliningIndicators/None.gif)
48
![](/Images/OutliningIndicators/None.gif)
49
![](/Images/OutliningIndicators/None.gif)
50
![](/Images/OutliningIndicators/None.gif)
51
![](/Images/OutliningIndicators/None.gif)
52
![](/Images/OutliningIndicators/None.gif)
53
![](/Images/OutliningIndicators/None.gif)
54
![](/Images/OutliningIndicators/None.gif)
55
![](/Images/OutliningIndicators/None.gif)
56
![](/Images/OutliningIndicators/None.gif)
57
![](/Images/OutliningIndicators/None.gif)
58
![](/Images/OutliningIndicators/None.gif)
59
![](/Images/OutliningIndicators/None.gif)
60
![](/Images/OutliningIndicators/None.gif)
61
![](/Images/OutliningIndicators/None.gif)
62
![](/Images/OutliningIndicators/None.gif)
63
![](/Images/OutliningIndicators/None.gif)
64
![](/Images/OutliningIndicators/None.gif)
65
![](/Images/OutliningIndicators/None.gif)
66
![](/Images/OutliningIndicators/None.gif)
67
![](/Images/OutliningIndicators/None.gif)
68
![](/Images/OutliningIndicators/None.gif)
69
![](/Images/OutliningIndicators/None.gif)
70
![](/Images/OutliningIndicators/None.gif)
71
![](/Images/OutliningIndicators/None.gif)
72
![](/Images/OutliningIndicators/None.gif)
73
![](/Images/OutliningIndicators/None.gif)
74
![](/Images/OutliningIndicators/None.gif)
75
![](/Images/OutliningIndicators/None.gif)
76
![](/Images/OutliningIndicators/None.gif)
77
![](/Images/OutliningIndicators/None.gif)
78
![](/Images/OutliningIndicators/None.gif)
79
![](/Images/OutliningIndicators/None.gif)
80
![](/Images/OutliningIndicators/None.gif)
81
![](/Images/OutliningIndicators/None.gif)
82
![](/Images/OutliningIndicators/None.gif)
83
![](/Images/OutliningIndicators/None.gif)
84
![](/Images/OutliningIndicators/None.gif)
85
![](/Images/OutliningIndicators/None.gif)
86
![](/Images/OutliningIndicators/None.gif)
87
![](/Images/OutliningIndicators/None.gif)
88
![](/Images/OutliningIndicators/None.gif)