用於vb.net表達式的字符串數組

首先，我可能會錯誤地將框架框起來，因爲我不確定它。用於vb.net表達式的字符串數組

我想在使用VB.NET的Visio中創建「折線」公式。

我正在做所有的步驟正確（這就是我認爲），除了把字符串數組在一起。

下面是代碼：

Dim xPoly As New List(Of String)() 

For lRow1 = 2 To 194 
    xPoly.Add(((xlsheet.Cells(lRow1, 8).value - iX) * 12) - xPS.Cells("PinX").ResultIU + iOX) 
    xPoly.Add(((xlsheet.Cells(lRow1, 9).value - iY) * 12) - xPS.Cells("PinY").ResultIU + iOY) 

Next lRow1 

    Dim sFormula As String = "Polyline(" & xPoly.ToString & ")" 

    xPS.AddRow(Visio.VisSectionIndices.visSectionFirstComponent, 2, Visio.VisRowTags.visTagPolylineTo) 
    xPS.CellsSRC(Visio.VisSectionIndices.visSectionFirstComponent, 2, 3).FormulaU = Chr(34) & "POLYLINE(" & xPoly.ToString & ")" & Chr(34)

這使X的列表，並從Excel文件Y座標。我希望這些座標位於一行中，如：(X1, Y1, X2, Y2, X3, Y3,......)。然後在Visio的「折線」功能中將它作爲字符串使用，因此它變成"Polyline(X1, Y1, X2, Y2, X3, Y3........)"。

我無法完成最後一步。我的代碼有問題，但我無法弄清楚什麼。任何幫助表示讚賞。

來源

2015-09-01 Miki Gajjar

而不是'xPoly.ToString'，或許你的意思是'String.Join（「，」，xPoly）'。 – Blackwood

@Blackwood它的工作。你能否把它作爲答案發布，以便我能接受它。 –

如果您創建了一個包含座標的List(Of String)，並且想要將其轉換爲單個字符串並且元素之間用逗號分隔，請使用String.Join方法。

Dim sFormula As String = "Polyline(" & String.Join(", ", xPoly) & ")"

來源

2015-09-01 21:57:14 Blackwood

用於vb.net表達式的字符串數組

回答

相關問題