jsa读写流，txt读写示例

ruirui5015

案例需求：

JS宏读写流
函数说明

1. FreeFile 提供一个尚未使用的文件号
2. Open 打开文件
3. Write/LineInput 文本方式
4. Put/Get 二进制方式
5. Close 关闭文件
代码实现

//测试代码
function main(){
        write("d:/1.txt","测试输出\n测试换行")
        read("d:/1.txt")
}

/**
* 写出文件
* @author Li Zuxian
* @param {*} path  路径
* @param {*} content 内容
*/
function write(path, content) {
        Kill(path) //删除文件
        var no = FreeFile()
        //Debug.Print(no)
       
        var fn = Open(path, no, jsBinary, jsWrite, jsLockReadWrite, 10000)   //第五个参数Len，表示写入的字符串长度
        Put(no, content)
        //var fn = Open(path, no, jsOutput, jsWrite, jsShared, 10000)
        //Write(no, content)
        Close(no)
}


/**
* 读入文件
* @author Li Zuxian
* @param {*} path 文件路径
*/
function read(path) {
        var no = FreeFile()
        var fn = Open(path, no, 4, jsReadWrite, jsLockWrite, 10000)
        //Debug.Print(no)
        var data = "";
        while (!EOF(no)) {
                data += LineInput(no);
                data += '\r\n';
        }
        Close(no)
        data = data.substring(0, data.length-2);
        Console.log(`${data}`)
        return data;
}

一江春水1688

wps开发文档中找不到这些内容？

ruirui5015

一江春水1688 发表于 2023-12-30 23:09
wps开发文档中找不到这些内容？

就是官方的，分享下

LIUZHU

ruirui5015 发表于 2023-12-31 14:36
就是官方的，分享下

Get和Write的示例没有啊？

Again123456

1. function main(){
   
2.         path = "d:/1.txt";
   
3.         try {Kill(path)}catch{};
   
4.         str1 = "第一行\r\n第二行";
   
5.         str2 = "\r\n追究加第三行";
   
6.         myWrite(path,str1);
   
7.         myWrite(path,str2);
   
8.         alert(myRead(path));
   
9. }
   
10. function myWrite(path,str){
    
11.         let fNum = FreeFile();
    
12.         Open(path,fNum,jsBinary,jsWrite,jsShared);
    
13.         pos = LOF(fNum)+1;
    
14.         if( pos == 1 ) {
    
15.                 Put(fNum,str);
    
16.         }else{
    
17.                 Put(fNum,str,pos);//参数顺序与VBA不一样
    
18.         }       
    
19.         Close(fNum);
    
20. }
    
21. function myRead(path){
    
22.         let fNum = FreeFile();
    
23.         let res = "";
    
24.         Open(path,fNum,jsInput,jsRead,jsLockReadWrite);
    
25.         while(!EOF(fNum)){
    
26.                 res += LineInput(fNum) + "\r\n";
    
27.         }
    
28.         Close(fNum);
    
29.         return res;       
    
30. }

复制代码

原来是和VBA参数不一样，这样可以解决写入带引号的问题了。

ruirui5015

Again123456 发表于 2024-1-2 17:00
原来是和VBA参数不一样，这样可以解决写入带引号的问题了。

A佬牛逼！！！！！！

Again123456

抄了一下大佬的代码

xx6000

各位大佬，能发如何用GET 读取图片类二进制文件的实例吗？GET的参数里面存储变量怎么才能定义成BYTE数组变量？
我写了一个读取文件的程序，但是GET不到数据，结果老是显示取到一些”00000"的数据，而不是我想要的二进制数据，不知错在哪里？请大佬们指正。
function read(path) {
        var no = FreeFile()

        var fn = Open(path, no,jsBinary, jsRead, jsLockWrite, 10000)
        sl=LOF(no)//文件长度字节数
        var bf=new ArrayBuffer(sl)//设定存储缓存区
        var zf=new Uint8Array(bf) //设定TypedArray读取数据
        Get(no,zf)//本来这一句想获取文件内容存入TypedArray即zf变量中，运行了一下zf存储变量没有Get到任何数据
        Close(no)
        Console.log(zf.join(""))//显示获取的文件内容
}

Again123456

xx6000 发表于 2024-2-7 13:53
各位大佬，能发如何用GET 读取图片类二进制文件的实例吗？GET的参数里面存储变量怎么才能定义成BYTE数组变 ...

这是要读取图片，画图么？我这边读出来全部是零。成功后，共享一下方法

1. 
   

复制代码

xx6000

我的本意是想读取图片文件转成BASE64格式，所以要获取图片的二进制数据转换，但是一直没取到我想要的结果。

/**
* CommandButton1_Click Macro
*/
function CommandButton1_Click()
{
  Range("E1").Value2=readPicData("e:/2.jpg").join("")
}



function readPicData(path){
        let fNum = FreeFile();
        Open(path,fNum,jsBinary,jsRead,jsLockWrite,10000)
        n = LOF(fNum);
        let data =new Uint8Array(n);
        Get(fNum,data)
        Close(fNum)
        return data      
}
运行结果如图，取到的数据依然全是零，感觉Get函数根本没起到作用，不知是啥原因？