我有一个设置为A1,A2,B1,B2,B3等的网格。Z 和 AA 到 KG,列范围从 1 到 1000。
感谢 LibreOffice Draw 中的 @Jim K - 基于查询表添加超链接,我们可以添加从 1 到 1000 的超链接,但我不确定如何嵌入第二个循环来执行此操作?
如果我们能提供一个 CSV
A1, map_A1.pdf
A2, map_A2.pdf
FG89, map_FG89.pdf
这确保了只有我们想要的文本是超链接的,并且可以处理任何复杂的文件名。匹配也应该是精确的。
循环遍历字母,例如 A 到 Z:
Sub chars_loop
Dim cval, c
For cval = Asc("A") to Asc("Z")
c = Chr(cval)
Print(c)
Next cval
End Sub
就从CSV文件读取而言,有两种方法可以从文件中读取:
- com/sun/star/ucb/SimpleFileAccess 接口。
- 使用经典的基本文件 I/O。
有关后者的示例,请参阅 Andrew Pitonyak 的宏文档第 5.13 节。 您可以使用 Do While Not EOF(iNum)
遍历文件中的所有行。