想把大漠找到字输出到excel中，这个之后怎么做，字库做好了

shaobo6858980

功能 执行()

    变量 ret=注册插件("c:\\dm.dll",真)
    变量 路径=获取资源路径("rc:新字库.txt")
    等待(100)
    dm=com("dm.dmsoft")
    dm.SetPath(获取资源路径("rc:"))
    等待(100)
    变量 intX,intY,a,s,dm_ret
    ret= dm.FindStr(34,81,82,98,"白0"," ffffff-000000",0.9,intX,intY)//大漠找字
    dm_ret = dm.FindStrFast(0,0,2000,2000,"白0","ffffff-000000",0.9,intX,intY)
    如果(ret)
        消息框(dm_ret)
        a=0
    否则
        消息框("插件注册成功1")
    结束

结束