fasta矩阵组合脚本

最新推荐文章于 2021-05-01 13:27:46 发布

末那

最新推荐文章于 2021-05-01 13:27:46 发布

阅读量8.5k

点赞数

分类专栏：此道登天

本文链接：https://blog.csdn.net/u010826374/article/details/25512183

版权

本文介绍了一位程序员为满足需求在Windows环境下使用VBS编写fasta矩阵组合脚本的过程。由于VBS相对Python更难用，作者提到了脚本可能存在的问题，如文件数量过多导致堆栈溢出、文件名过长报错等，但鉴于需求已满足，作者并未进行优化。有兴趣的读者可以参考使用。

摘要由CSDN通过智能技术生成

又是给女朋友做的……没有需求就没有动力这真的是一个合格的程序员么喂。

因为是在Windows下用，不能用bash也不能写Python，只好写成VBS。

第一次用VBS，这货比起Python真是难用得要命，微软太不争气了。不过也算是学了一门新技能吧。

其实这脚本一点也不健壮，文件数量过多时会堆栈溢出，文件名太长会报错，文件太大倒是没测过，想必也有问题。

她已经用完了，咱也没动力改了。有需求请自取。

'Author by alex_lei@163.com
'用于对当前路径下多个.fasta或.fas文件按矩阵进行组合，结果存放在result目录中
'示例：当前路径下有A.fasta、B.fasta和C.fasta三个文件
'      运行脚本后，result目录中将生成A+B.fas、B+C.fas、A+C.fas、A+B+C.fas四个文件
'      其中，A+B.fas的每一个矩阵都由A.fasta和B.fasta的对应矩阵拼合而成，以此类推
'      结果矩阵的名称将采用第一个源矩阵的名称
'限制：请保证每个文件中矩阵的顺序相同且格式正确（每个矩阵以">矩阵名"开头）。

'主函数入口
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(".\result")
ForEachPair GetFileName


'获取文件扩展名
Private Function GetFileExt(ByVal sFileNam

最低0.47元/天解锁文章