中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

vbs字符串操作小考題，學習的朋友可以參考下。

str="a|b|c|d"

要求寫一段小程序得出：

a|b|c|d

b|c|d|a

c|d|a|b

d|a|b|c

這樣的結果，str長度未定，格式是上邊的格式。

實現代碼如下:

代碼如下:

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