Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/gb18030/compare_rtf_with_dataset.sas
Original file line number Diff line number Diff line change
Expand Up @@ -88,7 +88,7 @@
X "del ""&rtf_loc.-copy"" & exit";

%if &readrtf_exit_with_error = TRUE %then %do;
X mshta vbscript:msgbox("&readrtf_exit_with_error_text",4144,"������Ϣ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('�ϲ��ɹ�����ʱ %superq(readrtf_exit_with_error_text) s��', 0, '��ʾ', 0+48+4096)";
%goto exit;
%end;

Expand Down
45 changes: 19 additions & 26 deletions src/gb18030/merge_rtf.sas
Original file line number Diff line number Diff line change
Expand Up @@ -191,7 +191,7 @@
%end;
%else %if %upcase(&auto_order) = FALSE %then %do; /*�ֶ�����*/
X explorer "&vd:\_tmp_rtf_list.txt";
X mshta vbscript:msgbox("���ڵ����Ĵ������ֶ����� RTF �ļ��ĺϲ�˳�򣬱����ص��˵�������ȷ�ϰ�ť��������������ϲ��� RTF �ļ����������ڶ�Ӧ�еĿ�ͷʹ�� '//' ����ע�ͣ���ֱ��ɾ����Ӧ�У����н������ԡ�",4160,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('���ڵ����Ĵ������ֶ����� RTF �ļ��ĺϲ�˳�򣬱����ص��˵�������ȷ�ϰ�ť��������������ϲ��� RTF �ļ����������ڶ�Ӧ�еĿ�ͷʹ�� ''//'' ����ע�ͣ���ֱ��ɾ����Ӧ�У����н������ԡ�', 0, '��ʾ', 0+64+4096)";

/*�ֶ�����󣬱���һ�ݸ������Թ���������ʱָ������ RTF_LIST = rtf_list_copy.txt*/
X "copy ""&vd:\_tmp_rtf_list.txt"" ""&vd:\rtf_list_copy.txt"" & exit";
Expand Down Expand Up @@ -255,10 +255,8 @@
%end;


/*----------------��ʱ�ر���־���------------------*/
proc printto log=_null_;
run;

/*----------------��ʱ������־�ȼ�------------------*/
options nonotes;

/*5. ���� filename ��䣬�����ļ�����*/
data _tmp_rtf_list_fnst;
Expand All @@ -285,7 +283,8 @@
%else %do;
%do i = 1 %to &rtf_ref_max;
%if %sysfunc(fileref(rtf&i)) < 0 %then %do;
X mshta vbscript:msgbox("�ϲ�ʧ�ܣ��ļ� %qsysfunc(pathname(rtf&i, F)) �����ڣ�",4112,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('�ϲ�ʧ�ܣ��ļ� %qsysfunc(pathname(rtf&i, F)) �����ڣ�', 0, '��ʾ', 0+16+4096)";

%goto exit_with_no_merge;
%end;
%else %do;
Expand Down Expand Up @@ -344,9 +343,8 @@
%let unmergeable_rtf_sum = &unmergeable_rtf_index;


/*----------------�ָ���־���------------------*/
proc printto log=log;
run;
/*----------------�ָ���־�ȼ�------------------*/
options notes;


%if &mergeable_rtf_list = %bquote() %then %do;
Expand All @@ -358,9 +356,8 @@
%put ERROR: �ļ� %superq(unmergeable_rtf_file_&i) �ƺ����޸��ˣ����������ļ���;
%end;

/*----------------��ʱ�ر���־���------------------*/
proc printto log=_null_;
run;
/*----------------��ʱ������־�ȼ�------------------*/
options nonotes;


/*9. ���� rtf �ļ�*/
Expand Down Expand Up @@ -533,9 +530,8 @@
run;


/*----------------�ָ���־���------------------*/
proc printto log=log;
run;
/*----------------�ָ���־�ȼ�------------------*/
options notes;


%do i = 1 %to &mergeable_rtf_ref_max;
Expand Down Expand Up @@ -590,17 +586,16 @@
%let run_spend_time = %sysfunc(putn(%sysevalf(&run_end_time - &run_start_time), 8.2)); /*�����ʱ*/

%if %sysevalf(&mergeable_rtf_ref_max < &rtf_ref_max) %then %do;
X mshta vbscript:msgbox("�ϲ��ɹ�����ʱ &run_spend_time s�������ѱ��޸ĵ� rtf �ļ�δ�ϲ�����鿴��־���飡",4144,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('�ϲ��ɹ�����ʱ %superq(run_spend_time) s�������ѱ��޸ĵ� rtf �ļ�δ�ϲ�����鿴��־���飡', 0, '��ʾ', 0+48+4096)";
%end;
%else %do;
X mshta vbscript:msgbox("�ϲ��ɹ�����ʱ &run_spend_time s��",4160,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('�ϲ��ɹ�����ʱ %superq(run_spend_time) s��', 0, '��ʾ', 0+64+4096)";
%end;


%exit:
/*----------------��ʱ�ر���־���------------------*/
proc printto log=_null_;
run;
/*----------------��ʱ������־�ȼ�------------------*/
proc nonotes;


/*ɾ����ʱ���ݼ�*/
Expand All @@ -615,9 +610,8 @@


%exit_with_no_merge:
/*----------------��ʱ�ر���־���------------------*/
proc printto log=_null_;
run;
/*----------------��ʱ������־�ȼ�------------------*/
proc nonotes;


/*ɾ����ʱ���ݼ�*/
Expand All @@ -633,9 +627,8 @@
%end;


/*----------------�ָ���־���------------------*/
proc printto log=log;
run;
/*----------------�ָ���־�ȼ�------------------*/
proc notes;


/*ɾ�� _tmp_rtf_list.txt*/
Expand Down
4 changes: 2 additions & 2 deletions src/gb18030/mix_cw_font.sas
Original file line number Diff line number Diff line change
Expand Up @@ -144,7 +144,7 @@
/*����������������*/
%if &SQLOBS = 0 %then %do;
%let is_cw_font_found = FALSE;
X mshta vbscript:msgbox("δ�ҵ�������е��������壬���ֶ�ָ������ CFONT Ϊһ�����ʵ������������ƣ�",4112,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('δ�ҵ�������е��������壬���ֶ�ָ������ CFONT Ϊһ�����ʵ������������ƣ�', 0, '��ʾ', 0+16+4096)";
%end;
%end;
%else %do;
Expand Down Expand Up @@ -173,7 +173,7 @@
/*����������������*/
%if &SQLOBS = 0 %then %do;
%let is_cw_font_found = FALSE;
X mshta vbscript:msgbox("δ�ҵ�������е��������壬���ֶ�ָ������ WFONT Ϊһ�����ʵ������������ƣ�",4112,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('δ�ҵ�������е��������壬���ֶ�ָ������ WFONT Ϊһ�����ʵ������������ƣ�', 0, '��ʾ', 0+16+4096)";
%end;
%end;
%else %do;
Expand Down
2 changes: 1 addition & 1 deletion src/gbk/compare_rtf_with_dataset.sas
Original file line number Diff line number Diff line change
Expand Up @@ -88,7 +88,7 @@
X "del ""&rtf_loc.-copy"" & exit";

%if &readrtf_exit_with_error = TRUE %then %do;
X mshta vbscript:msgbox("&readrtf_exit_with_error_text",4144,"������Ϣ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('�ϲ��ɹ�����ʱ %superq(readrtf_exit_with_error_text) s��', 0, '��ʾ', 0+48+4096)";
%goto exit;
%end;

Expand Down
45 changes: 19 additions & 26 deletions src/gbk/merge_rtf.sas
Original file line number Diff line number Diff line change
Expand Up @@ -191,7 +191,7 @@
%end;
%else %if %upcase(&auto_order) = FALSE %then %do; /*�ֶ�����*/
X explorer "&vd:\_tmp_rtf_list.txt";
X mshta vbscript:msgbox("���ڵ����Ĵ������ֶ����� RTF �ļ��ĺϲ�˳�򣬱����ص��˵�������ȷ�ϰ�ť��������������ϲ��� RTF �ļ����������ڶ�Ӧ�еĿ�ͷʹ�� '//' ����ע�ͣ���ֱ��ɾ����Ӧ�У����н������ԡ�",4160,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('���ڵ����Ĵ������ֶ����� RTF �ļ��ĺϲ�˳�򣬱����ص��˵�������ȷ�ϰ�ť��������������ϲ��� RTF �ļ����������ڶ�Ӧ�еĿ�ͷʹ�� ''//'' ����ע�ͣ���ֱ��ɾ����Ӧ�У����н������ԡ�', 0, '��ʾ', 0+64+4096)";

/*�ֶ�����󣬱���һ�ݸ������Թ���������ʱָ������ RTF_LIST = rtf_list_copy.txt*/
X "copy ""&vd:\_tmp_rtf_list.txt"" ""&vd:\rtf_list_copy.txt"" & exit";
Expand Down Expand Up @@ -255,10 +255,8 @@
%end;


/*----------------��ʱ�ر���־���------------------*/
proc printto log=_null_;
run;

/*----------------��ʱ������־�ȼ�------------------*/
options nonotes;

/*5. ���� filename ��䣬�����ļ�����*/
data _tmp_rtf_list_fnst;
Expand All @@ -285,7 +283,8 @@
%else %do;
%do i = 1 %to &rtf_ref_max;
%if %sysfunc(fileref(rtf&i)) < 0 %then %do;
X mshta vbscript:msgbox("�ϲ�ʧ�ܣ��ļ� %qsysfunc(pathname(rtf&i, F)) �����ڣ�",4112,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('�ϲ�ʧ�ܣ��ļ� %qsysfunc(pathname(rtf&i, F)) �����ڣ�', 0, '��ʾ', 0+16+4096)";

%goto exit_with_no_merge;
%end;
%else %do;
Expand Down Expand Up @@ -344,9 +343,8 @@
%let unmergeable_rtf_sum = &unmergeable_rtf_index;


/*----------------�ָ���־���------------------*/
proc printto log=log;
run;
/*----------------�ָ���־�ȼ�------------------*/
options notes;


%if &mergeable_rtf_list = %bquote() %then %do;
Expand All @@ -358,9 +356,8 @@
%put ERROR: �ļ� %superq(unmergeable_rtf_file_&i) �ƺ����޸��ˣ����������ļ���;
%end;

/*----------------��ʱ�ر���־���------------------*/
proc printto log=_null_;
run;
/*----------------��ʱ������־�ȼ�------------------*/
options nonotes;


/*9. ���� rtf �ļ�*/
Expand Down Expand Up @@ -533,9 +530,8 @@
run;


/*----------------�ָ���־���------------------*/
proc printto log=log;
run;
/*----------------�ָ���־�ȼ�------------------*/
options notes;


%do i = 1 %to &mergeable_rtf_ref_max;
Expand Down Expand Up @@ -590,17 +586,16 @@
%let run_spend_time = %sysfunc(putn(%sysevalf(&run_end_time - &run_start_time), 8.2)); /*�����ʱ*/

%if %sysevalf(&mergeable_rtf_ref_max < &rtf_ref_max) %then %do;
X mshta vbscript:msgbox("�ϲ��ɹ�����ʱ &run_spend_time s�������ѱ��޸ĵ� rtf �ļ�δ�ϲ�����鿴��־���飡",4144,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('�ϲ��ɹ�����ʱ %superq(run_spend_time) s�������ѱ��޸ĵ� rtf �ļ�δ�ϲ�����鿴��־���飡', 0, '��ʾ', 0+48+4096)";
%end;
%else %do;
X mshta vbscript:msgbox("�ϲ��ɹ�����ʱ &run_spend_time s��",4160,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('�ϲ��ɹ�����ʱ %superq(run_spend_time) s��', 0, '��ʾ', 0+64+4096)";
%end;


%exit:
/*----------------��ʱ�ر���־���------------------*/
proc printto log=_null_;
run;
/*----------------��ʱ������־�ȼ�------------------*/
proc nonotes;


/*ɾ����ʱ���ݼ�*/
Expand All @@ -615,9 +610,8 @@


%exit_with_no_merge:
/*----------------��ʱ�ر���־���------------------*/
proc printto log=_null_;
run;
/*----------------��ʱ������־�ȼ�------------------*/
proc nonotes;


/*ɾ����ʱ���ݼ�*/
Expand All @@ -633,9 +627,8 @@
%end;


/*----------------�ָ���־���------------------*/
proc printto log=log;
run;
/*----------------�ָ���־�ȼ�------------------*/
proc notes;


/*ɾ�� _tmp_rtf_list.txt*/
Expand Down
4 changes: 2 additions & 2 deletions src/gbk/mix_cw_font.sas
Original file line number Diff line number Diff line change
Expand Up @@ -144,7 +144,7 @@
/*����������������*/
%if &SQLOBS = 0 %then %do;
%let is_cw_font_found = FALSE;
X mshta vbscript:msgbox("δ�ҵ�������е��������壬���ֶ�ָ������ CFONT Ϊһ�����ʵ������������ƣ�",4112,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('δ�ҵ�������е��������壬���ֶ�ָ������ CFONT Ϊһ�����ʵ������������ƣ�', 0, '��ʾ', 0+16+4096)";
%end;
%end;
%else %do;
Expand Down Expand Up @@ -173,7 +173,7 @@
/*����������������*/
%if &SQLOBS = 0 %then %do;
%let is_cw_font_found = FALSE;
X mshta vbscript:msgbox("δ�ҵ�������е��������壬���ֶ�ָ������ WFONT Ϊһ�����ʵ������������ƣ�",4112,"��ʾ")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('δ�ҵ�������е��������壬���ֶ�ָ������ WFONT Ϊһ�����ʵ������������ƣ�', 0, '��ʾ', 0+16+4096)";
%end;
%end;
%else %do;
Expand Down
Binary file modified src/utf16/compare_rtf_with_dataset.sas
Binary file not shown.
Binary file modified src/utf16/merge_rtf.sas
Binary file not shown.
Binary file modified src/utf16/mix_cw_font.sas
Binary file not shown.
2 changes: 1 addition & 1 deletion src/utf8/compare_rtf_with_dataset.sas
Original file line number Diff line number Diff line change
Expand Up @@ -88,7 +88,7 @@
X "del ""&rtf_loc.-copy"" & exit";

%if &readrtf_exit_with_error = TRUE %then %do;
X mshta vbscript:msgbox("&readrtf_exit_with_error_text",4144,"错误信息")(window.close);
X powershell -Command "$ws = New-Object -ComObject WScript.Shell; $result = $ws.Popup('合并成功,耗时 %superq(readrtf_exit_with_error_text) s!', 0, '提示', 0+48+4096)";
%goto exit;
%end;

Expand Down
Loading