如何在Octave中通过VBScript复制含换行符\n的字符串到剪贴板

解决方案思路 #

原方案通过cmd /c echo | clip无法处理多行字符串，核心原因是：

1. CMD的echo命令不支持输出多行内容
2. 命令行参数传递时，换行符会被系统解析为参数分隔符，导致VBScript仅能接收第一行内容

改用临时文件中转的方式避开命令行参数限制，直接通过VBScript读取完整内容并写入剪贴板，确保多行格式保留。

1. 修改VBScript脚本（copy2clipboard.vbs） #

替换原有脚本为以下内容，实现直接读取临时文件并操作剪贴板：

Set objFSO = CreateObject("Scripting.FileSystemObject")
tempFilePath = WScript.Arguments(0)

' 读取临时文件的完整内容
Set objFile = objFSO.OpenTextFile(tempFilePath, 1) ' 1 = 只读模式
strContent = objFile.ReadAll()
objFile.Close()

' 将内容写入剪贴板
Set objHTML = CreateObject("htmlfile")
objHTML.clipboardData.setData "text", strContent
Set objHTML = Nothing
Set objFSO = Nothing

2. 修改Octave包装函数 #

更新copy2clipboard.m，实现将多行字符串写入临时文件、调用VBScript、清理临时文件的完整流程：

function copy2clipboard(outstr)
    % 处理字符串中的换行符：将Octave/Unix风格的\n替换为Windows兼容的\r\n
    % 如果你的字符串中是字面量"\n"（反斜杠+n），保留下面这行
    outstr = strrep(outstr, '\n', '\r\n');
    % 如果你的字符串中已经是实际换行符（如双引号字符串中的\n），注释上面一行，启用下面这行
    % outstr = strrep(outstr, char(10), char(13) + char(10));
    
    % 创建临时文件并写入内容
    [tempFid, tempName] = tempfile();
    fwrite(tempFid, outstr, 'char');
    fclose(tempFid);
    
    % 获取VBScript脚本路径并调用
    pathWrapper = fileparts(mfilename('fullpath'));
    system( [pathWrapper '\copy2clipboard.vbs "' tempName '"'] );
    
    % 清理临时文件
    delete(tempName);
end

3. 使用示例 #

在Octave中调用函数即可将多行字符串复制到剪贴板，粘贴到Excel时会自动识别为多行：

outstr = 'Line1 \n Line2 \n Line3 \n';
copy2clipboard(outstr);

内容的提问来源于stack exchange，提问作者Robert Seifert