XProfan

Français

p.specht

CRISPR ist une gentechnische Schere, um Genabschnitte qui RNA auszutauschen. dans Gen-Datenbanken wird so quelque chose vorweg berechnet, afin de voyons, wohin on am besten schneidet et ersetzt. cela analoge procéder peux on sur Stringvariablen anwenden:

un konstanter String S$ soll à Position n& vers String R$ sur definierte Longueur ausgetauscht volonté. Pour Demo une bouton ständig gedrückt tenir:

Kompilieren Marque Séparation

Titre de la fenêtre "DNA: Stringabschnitt austauschen"

proc replace$

    parameters stg$,at&,rep$
    ' stg$ défini aussi stets qui Ausgabelänge
    ' at& = Einfügeposition de -(len(rep$)+2) jusqu'à len(stg$)+1 (=keine Einfügung)
    return mid$(left$(stg$,at&-1)+rep$+mid$(stg$,at&+len(rep$),len(stg$)+1-(at&+len(rep$))),si(&Boucle<1,-1*(&Boucle-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

        Imprimer replace$(s$,&Boucle,r$)

        si %csrlin>22 : waitinput : cls : endif

        Endwhile

    Until i&=ls&

    WaitInput
    Fin