Ubuntu中文论坛

谢宝良 写了： 数万行数据，
一两秒就完成比较并剔除重复行数据，我倒是很想知道它是如何实现的。
用hiden选项？

jmxhyz 写了：

谢宝良 写了： 数万行数据，
一两秒就完成比较并剔除重复行数据，我倒是很想知道它是如何实现的。
用hiden选项？

如果我没有误解的话，你的意思是想用“宏”这种效率低的脚本语言，去重造一个处理数据的轮子？
如果是这样的话，那确实需要30分钟才能处理完万行数据。

问题在于，不要重复造轮子。“宏”应该是直接调用LibreOffice本身的功能。
我理解的“宏”的最大的意义是将LibreOffice的处理工作自动化，而不是另外给LibreOffice开发新功能。
要开发新功能的话，交给C/C++，LibreOffice是开源的！

回到主题上，LibreOffice本身有筛选功能来处理重复行，不就是一两秒吗？你的“宏”直接调用LibreOffice的筛选功能，不也是一两秒就完成吗？
估计你是想对这数万行数据，使用“宏”进行无边无际的循环、判断、嵌套吧

yq-ysy 写了：太巧了，我之所以提出这个问题，也是因为正在编写一个开源笔顺输入法的码表，
https://github.com/YQ-YSY/stroke-seq_MB

我现在的做法是：先在 LibreOffice 里用电子表格编写原始数据，
然后再按照不同输入法的码表格式要求，经过接续、去空、排序、去重、再复制粘贴到txt文本里，
这样就可以把这个“开源笔顺输入法的码表”留给不同的开源输入法程序开发者去使用，例如 Ibus-table 和小企鹅。
（我不会写程序，所能做的，也就只有在码表上出一份力了。）

因此，继续吧，如何用宏来实现吧B列接续到A列？
——为了简化工作，可以在A列和B列的末尾，手工输入一个特殊的单元格，作为列末尾标志。

谢宝良 写了： 这种工作宏当然能行，但脚本会更快，无论是执行速度还是编写代码的速度。
就比如把AB列竖直排列，那太容易了。而且有部分词组如果需要手工调整，那换成gvim编辑，更快速，因为gvim也有宏录制功能。

总的来说，编辑码表，用awk跟gvim更便利，如果想让某词组排在某个位置，如第一，你只要光标定位在该词组上，然后快捷键运行gvim的宏，它就自动排在该位置上。如果大规模替换某字母，那这两工具的替换功能都是很强大的。

yq-ysy 写了：
因此，继续吧，如何用宏来实现吧B列接续到A列？
——为了简化工作，可以在A列和B列的末尾，手工输入一个特殊的单元格，作为列末尾标志。

Sub Main
    Dim doc, sheet1 As Object
    Dim obj As Object
    Dim oCursor As Object
    'Dim LastCol As Long
    Dim LastRow As Long
    
    doc = thiscomponent
    sheet1 = doc.sheets.getByName("Sheet1")
   'xray doc
    obj = sheet1.getCellRangeByName("A1") 
    doc.CurrentController.select(obj) '当前选择
    oCursor= sheet1.createCursor()
    oCursor.gotoEndOfUsedArea(False)
   'LastCol = oCursor.RangeAddress.EndColumn
    LastRow = oCursor.RangeAddress.EndRow '最后一行

    Dim orange1, orange2 as Object
    orange1 = sheet1.getCellRangeByName("A1:A" + cstr(LastRow + 1))
    orange2 = sheet1.getCellRangeByName("D1:D" + cstr(LastRow + 1))
    obj = orange1.getDataArray()
    orange2.setDataArray(obj)
    
    orange1 = sheet1.getCellRangeByName("B1:B" + cstr(LastRow + 1))
    orange2 = sheet1.getCellRangeByName("D" + cstr(LastRow + 2) + ":D" + cstr(2 * LastRow + 2))
    obj = orange1.getDataArray()
    orange2.setDataArray(obj)
End Sub

谢宝良 写了：
想请教一事，Li的宏，明明知道思路，但就是没办法写出来，原因是它的编辑器很差劲，比如打开个文件，这么简单的代码，都只能复制粘贴，要找到教程才能复制然后修改，这真得很费劲的事情，没办法，编辑器没有补全功能，这也太难受了，您有好法子吗？
总不能次次都录制宏吧？

谢宝良 写了：既然是其它系统的朋友使用，
你能确定他有Libreoffice？
还有宏的运行方式，是快件键？还是菜单图标？
如果需要好几个宏，对于陌生人，使用方式只能是图标，你得帮忙部署好配置，不然别人可不懂如何运行的。

gvim的优点是体积小，免安装，搭配一个配置文件就能在不同系统使用一样的功能，菜单可任意增加功能。

jmxhyz 写了：

yq-ysy 写了：
因此，继续吧，如何用宏来实现吧B列接续到A列？
——为了简化工作，可以在A列和B列的末尾，手工输入一个特殊的单元格，作为列末尾标志。

下面这个宏，是把A、B列的数据合并到D列，避免影响原来的数据。如果需要复制到另一个工作表，修改一下即可。
LibreOffice的单个工作表支持百万行（1048576），足够合并了吧。

代码： 全选

Sub Main
    Dim doc, sheet1 As Object
    Dim obj As Object
    Dim oCursor As Object
    'Dim LastCol As Long
    Dim LastRow As Long
    
    doc = thiscomponent
    sheet1 = doc.sheets.getByName("Sheet1")
   'xray doc
    obj = sheet1.getCellRangeByName("A1") 
    doc.CurrentController.select(obj) '当前选择
    oCursor= sheet1.createCursor()
    oCursor.gotoEndOfUsedArea(False)
   'LastCol = oCursor.RangeAddress.EndColumn
    LastRow = oCursor.RangeAddress.EndRow '最后一行

    Dim orange1, orange2 as Object
    orange1 = sheet1.getCellRangeByName("A1:A" + cstr(LastRow + 1))
    orange2 = sheet1.getCellRangeByName("D1:D" + cstr(LastRow + 1))
    obj = orange1.getDataArray()
    orange2.setDataArray(obj)
    
    orange1 = sheet1.getCellRangeByName("B1:B" + cstr(LastRow + 1))
    orange2 = sheet1.getCellRangeByName("D" + cstr(LastRow + 2) + ":D" + cstr(2 * LastRow + 2))
    obj = orange1.getDataArray()
    orange2.setDataArray(obj)
End Sub

BASIC 运行时间错误.
发生异常 
Type: com.sun.star.uno.RuntimeException
Message: 。

yq-ysy 写了：

jmxhyz 写了：

yq-ysy 写了：
因此，继续吧，如何用宏来实现吧B列接续到A列？
——为了简化工作，可以在A列和B列的末尾，手工输入一个特殊的单元格，作为列末尾标志。

下面这个宏，是把A、B列的数据合并到D列，避免影响原来的数据。如果需要复制到另一个工作表，修改一下即可。
LibreOffice的单个工作表支持百万行（1048576），足够合并了吧。

代码： 全选

Sub Main
    Dim doc, sheet1 As Object
    Dim obj As Object
    Dim oCursor As Object
    'Dim LastCol As Long
    Dim LastRow As Long
    
    doc = thiscomponent
    sheet1 = doc.sheets.getByName("Sheet1")
   'xray doc
    obj = sheet1.getCellRangeByName("A1") 
    doc.CurrentController.select(obj) '当前选择
    oCursor= sheet1.createCursor()
    oCursor.gotoEndOfUsedArea(False)
   'LastCol = oCursor.RangeAddress.EndColumn
    LastRow = oCursor.RangeAddress.EndRow '最后一行

    Dim orange1, orange2 as Object
    orange1 = sheet1.getCellRangeByName("A1:A" + cstr(LastRow + 1))
    orange2 = sheet1.getCellRangeByName("D1:D" + cstr(LastRow + 1))
    obj = orange1.getDataArray()
    orange2.setDataArray(obj)
    
    orange1 = sheet1.getCellRangeByName("B1:B" + cstr(LastRow + 1))
    orange2 = sheet1.getCellRangeByName("D" + cstr(LastRow + 2) + ":D" + cstr(2 * LastRow + 2))
    obj = orange1.getDataArray()
    orange2.setDataArray(obj)
End Sub

运行这个宏之前，需要其它什么操作吗？例如“选中某一列”之类的？
我运行这个宏，出现出错提示，其得到的结果只复制了A列到D列中，没有把B列接续上去。

代码： 全选

BASIC 运行时间错误.
发生异常 
Type: com.sun.star.uno.RuntimeException
Message: 。