16S扩增子之Vsearch使用

1.概览

2.PE reads拼接（ fastq_mergepairs ）

3.质量控制（ fastx_filter ）

5.统计OTUs或ASVs的计数值

以下为Usearch的使用，接去冗余那一步之后

整理自 https://mp.weixin.qq.com/s/MTZFWIqr1dqO-fwUQ8Pb4g

Private Sub Command1_Click()

End Sub

Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)

Dim vSearchLine As String, found As Integer

found = InStr(SearchLine, SearchFor): vSearchLine = SearchLine

If found <> 0 Then

vSearchLine = ""

If found > 1 Then vSearchLine = Left(SearchLine, found - 1)

vSearchLine = vSearchLine + ReplaceWith

If found + Len(SearchFor) - 1 < Len(SearchLine) Then _

vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1)

End If

sReplace = vSearchLine

End Function

sReplace是自定义过程 不能将整个过程内容写到按钮事件里 需要调用只需要写

Private Sub Command1_Click()

sReplace("参数1","参数2","参数3")

End Sub

根据实际修改参数内容

通用办法：

在某个网址，看了某个视频很喜欢想要保存下来要怎么做？一步步来~前提要先在网页上看完整。

然后 菜单栏——>工具——>Internet选项

弹出新窗口，在“浏览历史记录”处找到“设置”点开

弹出选项卡，点开“查看文件”

会弹出一个新窗口。

接下来按大小排列文件，找到该文件夹里最大的几个文件

复制那个较大的文件到桌面（有不止一个的话要自己选选看了）

一般来说网页上的视频都是flv格式的，改一下后缀，ok啦~

---