XProfan

Español

p.specht

CRISPR es una gentechnische Schere, en Genabschnitte el RNA auszutauschen. In Gen-Datenbanken se así algo vorweg berechnet, en a sehen, wo uno al besten schneidet y ersetzt. Das analoge Verfahren puede ser en Stringvariablen anwenden:

Ein konstanter String S$ se a Position n& gegen String R$ en definierte Longitud ausgetauscht voluntad. Für Demo una Taste ständig gedrückt halten:

Kompilieren Marca Separación

Título de la ventana "DNA: Stringabschnitt austauschen"

proc replace$

    parámetros stg$,at&,rep$
    ' stg$ definiert auch stets el Ausgabelänge
    ' at& = Einfügeposition de -(len(rep$)+2) a len(stg$)+1 (=keine Einfügung)
    volver 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
declarar 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

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

        if %csrlin>22 : waitinput : cls : endif

        Endwhile

    Until i&=ls&

    WaitInput
    End