Question

首先，我可能错误地设置了标题，因为我不确定。

我正在尝试为＆＃34; Polyline＆＃34;创建一个公式。在Visio中使用VB.NET。

我正在正确地完成所有步骤（这就是我的想法），除了将字符串数组放在一起。

以下是代码：

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)

这会带来一个excel文件中的X和Y坐标列表。我希望这些坐标在一行中，例如：(X1, Y1, X2, Y2, X3, Y3,......)。然后在＆＃34; Polyline＆＃34;中使用它作为字符串。 visio的功能，因此变成"Polyline(X1, Y1, X2, Y2, X3, Y3........)"。

我无法完成最后一步。我的代码有问题，但我无法弄清楚是什么。任何帮助表示赞赏。

Answer 1

If you have created a List(Of String) containing the coordinates and you want to convert it to a single string with the elements separated by commas, use the String.Join method.

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

要在vb.net

1 个答案: