17 - 小工具系列 - 博一

1 国家重点研发计划

你最近是否也被国家重点研发计划的弱♂智填报系统所折磨？是否发现几千万的项目几百号参与人员的信息全部要一个一个填进去？？？我透！太反人类了！

随手用matlab写了个自动填写jio本：

（首先，统计各个课题的人员信息，模板应该都是这个吧）

然后，

%重点研发计划-课题分解-项目人员-填写脚本

%--------------------------%
clear all;clc;
%读取目标excel
[rawDataNum, rawDataStr] = xlsread('F:\下载\data.xlsx');

temp = size(rawDataStr);
people = temp(1,1);
%设置快捷键/时间，设置读取单元格顺序

%循环↓
for i=1:people
%     %方式一：每个人,检测快捷键，读取下一个单元格内容并粘贴到 剪贴板
%       if strcmpi(get(gcf,'CurrentCharacter'),'f')    %算了，手累

      %方式二：每个人，没秒走一个单元格，每个人停顿一次
      for j=1:temp(1,2)+1
          sound(sin(2*pi*25*(1:4000)/100));%播放提示音1
          if (j == 16)
              celldata = string( rawDataNum(i,4))
              clipboard('copy',celldata)     
          else
              if (j == 9)
                  pause(3);%需要点“亚洲”“中国”“身份证”，多等会儿
              end
              celldata = string( rawDataStr(i,j))
              clipboard('copy',celldata)
              strrep(celldata,'/','-'); %防止excel里日期格式问题
          end         
          pause(2);
      end    
    load chirp % 提示音2
    sound(y,Fs) 
    pause(15);%搞快点，保存这个参与人，就等你这么多秒
end
%
%循环↑
%晨宇 2019.10.09 

2