Şunu aradınız:: stext (Almanca - Fransızca)

stext = " _bar_ "
stext = " _bar_ "

msgbox stext
msgbox stext

get #inumber,,stext
get #inumber,,stext

stext = " las vegas "
stext = " las vegas "

dim stext as string
dim stext as string

sout = sout + " ' " + stext + " ' "
sout = sout + " ' " + stext + " ' "

msgbox stext(i,ii)
msgbox stext(i,ii)

let stext = " las vegas "
let stext = " las vegas "

stext = string(10,65)
stext = string(10,65)

stext = string(10, " a " )
stext = string(10, " a " )

msgbox stext,0, " text verschlüsselt "
msgbox stext,0, " texte codé "

msgbox stext,0, " spektrale verteilung "
msgbox stext,0, " distribution spectrale "

dim ivar as integer, stext as string
dim ivar as integer, stext as string

dim stext as variant rem muß variant sein
dim stext as variant rem doit être un type de variant

sub f_callfun (stext as string)
sub f_callfun (stext as string)

stext = trim(stext2) rem stext = " "
stext = trim(stext2) rem stext = " "

if cbool(instr(stext, " und " )) then
if cbool(instr(stext, " et " )) then

sout = sout + " ' " + stext + " ' " + chr(13)
sout = sout + " ' " +stext + " ' " + chr(13)

stext = ltrim(stext2) rem stext = " "
stext = ltrim(stext2) rem stext = " "

dim stext2 as string,stext as string,sout as string
dim stext2 as string,stext as string,sout as string