XProfan

Italia

p.specht

CRISPR ist eine gentechnische Schere, um Genabschnitte der RNA auszutauschen. In Gen-Datenbanken wird so etwas vorweg berechnet, um zu sehen, wo man am besten schneidet und ersetzt. Das analoge Verfahren kann man auf Stringvariablen anwenden:

Ein konstanter String S$ soll an Position n& gegen String R$ auf definierte Länge ausgetauscht werden. Für Demo eine Taste ständig gedrückt halten:

Kompilieren Markieren Separieren

WindowTitle "DNA: Stringabschnitt austauschen"

proc replace$

    parameters stg$,at&,rep$
    ' stg$ definiert auch stets die Ausgabelänge
    ' at& = Einfügeposition von -(len(rep$)+2) bis len(stg$)+1 (=keine Einfügung)
    return mid$(left$(stg$,at&-1)+rep$+mid$(stg$,at&+len(rep$),len(stg$)+1-(at&+len(rep$))),if(&Loop<1,-1*(&Loop-2),1),len(stg$))

Endproc

Font 2:Cls
declare s$,r$,ls&,lr&,forever&,i&
S$="GenabschnittDerZuBehandelnIst+" : S$=S$+S$
ls&=len(s$)

Repeat

    inc i&
    r$=left$("....................................VIRUSBEFALL...................................",i&)
    lr&=len(r$)

    WhileLoop ls&+1,-1*(lr&-2),-1

        Print replace$(s$,&Loop,r$)

        if %csrlin>22 : waitinput : cls : endif

        Endwhile

    Until i&=ls&

    WaitInput
    End