16 lines
295 B
Text
16 lines
295 B
Text
Public Sub Main()
|
|
Dim sList As String = File.Load("../FASTA")
|
|
Dim sTemp, sOutput As String
|
|
|
|
For Each sTemp In Split(sList, gb.NewLine)
|
|
If sTemp Begins ">" Then
|
|
If sOutput Then Print sOutput
|
|
sOutput = Right(sTemp, -1) & ": "
|
|
Else
|
|
sOutput &= sTemp
|
|
Endif
|
|
Next
|
|
|
|
Print sOutput
|
|
|
|
End
|