vbs字符串操作小考題
更新時間：2010年11月28日 21:17:42 作者：
vbs字符串操作小考題，學(xué)習(xí)的朋友可以參考下。
str="a|b|c|d"
要求寫一段小程序得出：
a|b|c|d
b|c|d|a
c|d|a|b
d|a|b|c
這樣的結(jié)果，str長度未定，格式是上邊的格式。
實現(xiàn)代碼如下:
str="a|b|c|d"
Call Sort(str, "|")
Function Sort(sSource, sDelimiter)
Dim I, J, N, sItems, sTemp
sItems = Split(sSource, sDelimiter)
For I = 0 To UBound(sItems)
For J = 0 To UBound(sItems)
N = I + J
If N > UBound(sItems) Then
N = N - UBound(sItems) - 1
End If
sTemp = sTemp & sItems(N) & sDelimiter
Next
sTemp = Left(sTemp, Len(sTemp) - Len(sDelimiter))
Wscript.Echo sTemp
sTemp = ""
Next
End Function
在一個窗口同時顯示
str = "a|b|c|d"
WSH.Echo Join(Sort(str, "|"), vbCrLf)
Function Sort(ByVal s, ByVal d)
Dim a, r(), i, j, h, index
a = Split(s, d)
h = UBound(a)
ReDim Preserve r(h)
index = Len(d) + 1
For i = 0 To h
r(i) = ""
For j = i To h + i
r(i) = r(i) & d & a(j Mod (h + 1))
Next
r(i) = Mid(r(i), index)
Next
Sort = r
End Function
str="a|b|c|d"
Wscript.Echo Sort(str, "|")
Function Sort(sSource, sDelimiter)
Dim I, J, N, sItems, sTemp
sItems = Split(sSource, sDelimiter)
N = UBound(sItems)
For I = 0 To N
For J = 0 To N
sTemp = sTemp & sItems((I + J) Mod (N + 1)) & sDelimiter
Next
sTemp = Left(sTemp, Len(sTemp) - Len(sDelimiter))
Sort = Sort & sTemp & vbCrLf
sTemp = ""
Next
Sort = Left(Sort, Len(Sort) - 1)
End Function
str="a|b|c|d"
msgbox Sort(str, "|")
function sort(ss,sd)
dim n,i
for i=0 to ubound(split(ss,sd))
sort=sort+mid(ss+sd+ss,n+1,len(ss))+vbcrlf
n=instr(n+1,ss+sd+ss,sd)
next
end function
要求寫一段小程序得出：
a|b|c|d
b|c|d|a
c|d|a|b
d|a|b|c
這樣的結(jié)果，str長度未定，格式是上邊的格式。
實現(xiàn)代碼如下:
復(fù)制代碼 代碼如下:
str="a|b|c|d"
Call Sort(str, "|")
Function Sort(sSource, sDelimiter)
Dim I, J, N, sItems, sTemp
sItems = Split(sSource, sDelimiter)
For I = 0 To UBound(sItems)
For J = 0 To UBound(sItems)
N = I + J
If N > UBound(sItems) Then
N = N - UBound(sItems) - 1
End If
sTemp = sTemp & sItems(N) & sDelimiter
Next
sTemp = Left(sTemp, Len(sTemp) - Len(sDelimiter))
Wscript.Echo sTemp
sTemp = ""
Next
End Function
在一個窗口同時顯示
復(fù)制代碼 代碼如下:
str = "a|b|c|d"
WSH.Echo Join(Sort(str, "|"), vbCrLf)
Function Sort(ByVal s, ByVal d)
Dim a, r(), i, j, h, index
a = Split(s, d)
h = UBound(a)
ReDim Preserve r(h)
index = Len(d) + 1
For i = 0 To h
r(i) = ""
For j = i To h + i
r(i) = r(i) & d & a(j Mod (h + 1))
Next
r(i) = Mid(r(i), index)
Next
Sort = r
End Function
復(fù)制代碼 代碼如下:
str="a|b|c|d"
Wscript.Echo Sort(str, "|")
Function Sort(sSource, sDelimiter)
Dim I, J, N, sItems, sTemp
sItems = Split(sSource, sDelimiter)
N = UBound(sItems)
For I = 0 To N
For J = 0 To N
sTemp = sTemp & sItems((I + J) Mod (N + 1)) & sDelimiter
Next
sTemp = Left(sTemp, Len(sTemp) - Len(sDelimiter))
Sort = Sort & sTemp & vbCrLf
sTemp = ""
Next
Sort = Left(Sort, Len(Sort) - 1)
End Function
復(fù)制代碼 代碼如下:
str="a|b|c|d"
msgbox Sort(str, "|")
function sort(ss,sd)
dim n,i
for i=0 to ubound(split(ss,sd))
sort=sort+mid(ss+sd+ss,n+1,len(ss))+vbcrlf
n=instr(n+1,ss+sd+ss,sd)
next
end function
相關(guān)文章
VBS教程：函數(shù)-FormatDateTime 函數(shù)
VBS教程：函數(shù)-FormatDateTime 函數(shù)...2006-11-11
使用 Iisext.vbs 啟用Web服務(wù)擴展的方法
一直以來都是手工啟用Web服務(wù)擴展，沒想到微軟發(fā)布的Iisext.vbs也有這個功能，這里腳本之家小編就為大家介紹下2014-07-07
查看或修改Windows系列系統(tǒng)的序列號的vbs
查看或修改Windows系列系統(tǒng)的序列號（包括：2000,xp,2003），支持命令行2008-06-06
使用腳本調(diào)用系統(tǒng)的關(guān)機對話框?qū)崿F(xiàn)代碼
以前有介紹如何使用命令行調(diào)用系統(tǒng)的關(guān)機對話框rundll32.exe shell32.dll #60,但是，上述方法會存在一問題，XP下無法正常使用該方法進行關(guān)機2012-05-05
一些有趣的vbs程序代碼2013-01-01
今天寫代碼的時候需要用到vbs獲取文件配置項，不用放數(shù)據(jù)庫里面，要不增刪改查都要做一篇，本身功能就簡單，這里就為大家分享一下實現(xiàn)代碼,需要的朋友可以參考下2019-09-09
vbs結(jié)合wget 實現(xiàn)下載網(wǎng)站圖片
本文主要實現(xiàn)了使用vbs腳本調(diào)用wget，下載網(wǎng)站所有頁面到本腳本目錄，并掃描本腳本目錄中所有文件，讀取本腳本目錄中的所有網(wǎng)頁，匹配圖片 URL 地址，保存所有圖片 URL 地址到 url-img.txt 文件，然后調(diào)用wget: 下載 url-img.txt 指定的圖片到本腳本 img 目錄2014-09-09
這個是我見過的最有特色的腳本提醒程序了，時間|提示語，具體使用方法可以參考例子2008-06-06
下面的hta主要用于實現(xiàn)網(wǎng)易文件的提取，提供這個代碼希望大家學(xué)習(xí)他的hta編寫2008-06-06
用VBS實現(xiàn)腳本結(jié)束進程與防止進程啟動
用VBS實現(xiàn)腳本結(jié)束進程與防止進程啟動...2007-03-03