将Maxwell VBS代码转化成MATLAB代码

zongshideshui

使用脚本语言控制Maxwell进行仿真，可以实现MAXWELL全自动化，如：
https://bbs.simol.cn/thread-28895-1-1.html

但Maxwell自身支持的脚本语言是VBS，因此写了个matlab工具，能将常见的命令转换成Matlab代码，分享给有需要的人
        (1)MAXWELL vbs代码用宏录制
        (2)MAXWELL版本：16
        (3)Matlab版本：2018

1. function newstr=MaxwellVBS2Matlab(f)
   
2. % 用法：MaxwellVBS2Matlab('E:\dd.vbs')
   
3. fpn = fopen (f, 'rt');
   
4. newstr='';
   
5. tmpstr='';
   
6. while feof(fpn) ~= 1
   
7.     str = fgetl(fpn);
   
8.     str=strtrim(str);
   
9.     if ~strcmp(str(1),'''') && ~strcmp(str(1:4),'Dim ') && ~isempty(str)
   
10.         if strcmp(str(end),'_')
    
11.             if isempty(tmpstr)
    
12.                 tmpstr=str;
    
13.             else
    
14.                 tmpstr=[tmpstr,newline,str]; %#ok<AGROW>
    
15.             end
    
16.         else
    
17.             if isempty(tmpstr)
    
18.                 newstr=[newstr,newline,fun(str)]; %#ok<AGROW>
    
19.             else
    
20.                 tmpstr=[tmpstr,newline,str]; %#ok<AGROW>
    
21.                 newstr=[newstr,newline,fun(tmpstr)]; %#ok<AGROW>
    
22.             end            
    
23.         end
    
24.     end
    
25. end
    
26. newstr=[newstr,newline];
    
27. fclose(fpn);
    
28. 
    
29. function str=fun(str)
    
30. str=strrep(str,'"" & Chr(34) & "vacuum" & Chr(34) & ""','"vacuum"');
    
31. for ii=1:20
    
32.     expr='Array\(.+\)(?!")';
    
33.     [startIndex,endIndex] =regexp(str,expr);
    
34.     if isempty(startIndex)
    
35.         break
    
36.     end
    
37.     str=[str(1:startIndex-1),'{',str(startIndex+6:endIndex-1),'}',str(endIndex+1:end)];
    
38. end
    
39. str=strrep(str,'), Array(','},{');
    
40. str=strrep(str,'"','''');
    
41. str=strrep(str,' _','...');
    
42. [iind,dind]=regexp(str,'''MaterialValue:='', ''\w*''');
    
43. if ~isempty(iind)
    
44.     str=[str(1:iind-1),'''MaterialValue:='',''"',str(iind+20:dind-1),'"''',str(dind+2:end)];
    
45. end
    
46. if strcmp(str(1:4),'Set ')
    
47.     str=str(5:end);
    
48. end
    
49. [startIndex,~] =regexp(str,'\w*(\.)\w* {.*}');
    
50. if ~isempty(startIndex)
    
51.     expr='{.+}';
    
52.     [startIndex,endIndex] =regexp(str,expr);
    
53.     str=[str(1:startIndex-2),'({',str(startIndex+1:endIndex-1),'})',str(endIndex+1:end)];
    
54. end
    
55. if ~strcmp(str(end-2:end),'...')
    
56.     str=[str,';'];
    
57. end

复制代码

zhangxx49

楼主 想询问一下 你对照转换是否有些文件可以参考目前我也遇到此转换问题。

zongshideshui

zhangxx49 发表于 2018-6-25 11:47
楼主 想询问一下 你对照转换是否有些文件可以参考目前我也遇到此转换问题。

没有。Maxwell VBS宏的语法可以看里的帮助文件，其他无。
代码转换是2种语言语法的变换，如果对二者的语法足够了解，就能知道如何转换。
"..."→'...'
Array(...)→{...}
&→[...]
......

我们的天空123

楼主，你写的将Maxwell VBS代码转化成MATLAB代码 的程序？具体怎么用？

max_max

感谢楼主分享，请问能否提供新版转换代码，谢谢。上面代码执行后，转换的代码挺多错误。

止于至善001

感谢分享原创经验