vb.net 的表达式中要使用的字符串数组

Question

首先，我可能把标题框错了，因为我不确定。

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

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

代码如下：

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,......)。然后在 visio 的 "Polyline" 函数中将其作为字符串使用，因此它变为 "Polyline(X1, Y1, X2, Y2, X3, Y3........)".

我做不到最后一步。我的代码有问题，但我无法弄清楚是什么。感谢任何帮助。

Answer 1

如果您创建了一个包含坐标的 List(Of String)，并且您希望将其转换为单个字符串，元素之间用逗号分隔，请使用 String.Join 方法。

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

vb.net 的表达式中要使用的字符串数组

Array of string to be used in an expression for vb.net

vb.net

visio