FASTA format: Difference between revisions
→version 2: rewritten
Walterpachl (talk | contribs) (→version 1: rewritten) |
Walterpachl (talk | contribs) (→version 2: rewritten) |
||
Line 2,011:
::* sequences that contain blanks, tabs, and other whitespace
::* sequence names that are identified with a semicolon [''';''']
<syntaxhighlight lang="rexx">/*REXX program reads a
name=
data=''
Do While
x=strip(linein(iFID),'T') /*read a line (a record) from the file,*/
Select
if left(x, 1)==';' then do▼
When x=='' Then /*
Nop
When left(x,1)==';' Then Do
End
if $\=='' then say name':' $▼
▲ name=substr(x, 2)
If data\=='' Then
Say name':'
name=substr(x,2)
else $=space($ || translate(x, , '*'), 0)▼
data=''
End
Otherwise
End
End
If data\=='' Then
</syntaxhighlight>
<pre>
'''input:''' The '''FASTA2.IN''' file is shown below:
|