[英]vbscript array loop, printing issue
我有一個這樣的記錄集:
row1 = Type1, partid, partname
row2 = Type2, partid, partname
row3 = Type2, partid, partname
我希望我的輸出是這樣的:
Type1: partid partname
Type2: partid partname, partid, partname
要么
Type2: partid partname, partid, partname
Type1: partid partname
(取決於排序方式)
我將結果按“類型”值排序。 我可能會或可能不會在結果中得到相同的Types,但是如果是這樣,則需要按上述方式打印結果。
我正在使用.getRows()
將記錄集放入數組。
我一輩子都無法弄清楚如何在循環中決定打印中斷標簽還是逗號。
您需要檢查“類型”列中的更改。 在這種情況下,請打印<br />
和類型。 在代碼中:
Set r = CreateObject("ADODB.Recordset")
r.Fields.Append "t", 3
r.Fields.Append "i", 3
r.Fields.Append "n", 3
r.Open
r.AddNew : r.Fields("t") = 1 : r.Fields("i") = 10 : r.Fields("n") = 10
r.AddNew : r.Fields("t") = 2 : r.Fields("i") = 20 : r.Fields("n") = 21
r.AddNew : r.Fields("t") = 2 : r.Fields("i") = 22 : r.Fields("n") = 22
r.AddNew : r.Fields("t") = 3 : r.Fields("i") = 30 : r.Fields("n") = 31
r.MoveFirst
a = r.GetRows()
t = a(0, 0)
WScript.StdOut.Write a(0, 0)
For r = 0 To UBound(a, 2)
If t <> a(0, r) Then
WScript.StdOut.Write "<br />" & a(0, r)
t = a(0, r)
End If
WScript.StdOut.Write Join(Array("", a(1, r), a(2,r)), ",")
Next
輸出:
cscript 24441584.vbs
1,10,10<br />2,20,21,22,22<br />3,30,31
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.