How to resolve the algorithm FASTA format step by step in the PureBasic programming language

Published on 12 May 2024 09:40 PM
#Purebasic

How to resolve the algorithm FASTA format step by step in the PureBasic programming language

Table of Contents

Problem Statement

In bioinformatics, long character strings are often encoded in a format called FASTA.
A FASTA file can contain several strings, each identified by a name marked by a > (greater than) character at the beginning of the line.

Write a program that reads a FASTA file such as: Note that a high-quality implementation will not hold the entire file in memory at once; real FASTA files can be multiple gigabytes in size.

Let's start with the solution:

Step by Step solution about How to resolve the algorithm FASTA format step by step in the PureBasic programming language

Source code in the purebasic programming language

EnableExplicit
Define Hdl_File.i, 
       Frm_File.i,
       c.c,         
       header.b

Hdl_File=ReadFile(#PB_Any,"c:\code_pb\rosettacode\data\FASTA_TEST.txt")
If Not IsFile(Hdl_File) : End -1 : EndIf
Frm_File=ReadStringFormat(Hdl_File)

If OpenConsole("FASTA format")
  While Not Eof(Hdl_File)
    c=ReadCharacter(Hdl_File,Frm_File)  
    Select c
      Case '>'
        header=#True
        PrintN("")
      Case #LF, #CR
        If header
          Print(": ")
          header=#False        
        EndIf      
      Default      
        Print(Chr(c))
    EndSelect      
  Wend
  CloseFile(Hdl_File)
  Input()   
EndIf

You may also check:How to resolve the algorithm Inheritance/Multiple step by step in the C# programming language
You may also check:How to resolve the algorithm Zero to the zero power step by step in the NetRexx programming language
You may also check:How to resolve the algorithm Factorions step by step in the Delphi programming language
You may also check:How to resolve the algorithm McNuggets problem step by step in the Clojure programming language
You may also check:How to resolve the algorithm Rename a file step by step in the Phix programming language