English
Forum

Question Translate$

 

Johannes
Meyer
Hey ho,

following thing i'd gladly Translate$ with two Suchmustern use.
Translate should The strings 11 and 12 replaced. ought to really with @Set("RegEx", 1) with squeeze out which one then of Match$ take can functions.

unfortunately functions not Perhaps has here Yes who a idea where my Error lying :/

possible does it with the Suchstring only match$ what Real angry would
target is the it with 5 x 1 hits reports

here the code.
CompileMarkSeparation
Declare inhalt%[15],inhalt$
var found$="11"'testen mit [11-12] oder [11|12]
@Set("RegEx", 1)
cls
inhalt%[1]=1
inhalt%[4]=1
inhalt%[7]=11
inhalt%[10]=12
inhalt%[13]=1

Proc Check

    WhileLoop 1,12,1

        Print @Translate$(inhalt$,found$,@Str$(&Loop))
        Sleep 100
        'Reihe A

        If @Str$(&Loop)+","+@Str$(&Loop)= @Translate$(inhalt$,found$,@Str$(&Loop))

            Print "treffer"

        EndIf

        If @Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)= @Translate$(inhalt$,found$,@Str$(&Loop))

            Print "treffer"

        EndIf

        If @Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)= @Translate$(inhalt$,found$,@Str$(&Loop))

            Print "treffer"

        EndIf

        If @Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)= @Translate$(inhalt$,found$,@Str$(&Loop))

            Print "treffer"

        EndIf

    EndWhile

EndProc

inhalt$ = @Str$(inhalt%[1])+","+@Str$(inhalt%[4])
Check()
inhalt$ = @Str$(inhalt%[1])+","+@Str$(inhalt%[4])+","+@Str$(inhalt%[7])
Check()
inhalt$ = @Str$(inhalt%[1])+","+@Str$(inhalt%[4])+","+@Str$(inhalt%[7])+","+@Str$(inhalt%[10])
Check()
inhalt$ = @Str$(inhalt%[1])+","+@Str$(inhalt%[4])+","+@Str$(inhalt%[7])+","+@Str$(inhalt%[10])+","+@Str$(inhalt%[13])
Check()
WaitInput

Würd me over Help very forward ;)
 
Gruß,
Johannes

Programmiert in Profan X2
(Release) Gravity the Game
12/07/12  
 




Jörg
Sellmeyer
can it his, that You it unnecessary tricky make?
CompileMarkSeparation
Var Text$ = "7,11,9,12,15"
Var Resultat$ = Translate$(Text$,"11","")
Resultat$ = Translate$(Resultat$,"12","")
Print Text$
Print Resultat$
WaitInpu
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
12/08/12  
 




Johannes
Meyer
thanks first times for your response.

Update:
I look time whether me the Example of you weiterhilft and what it very power.

update2:
seems a Lösungsweg To his must now whom ansatz yet supra into code integrate and hoping the it then so works How pseudo ;)
 
XProfan X2
Win7 Home Premium, SP1, Core(TM) i5-2400 @ 3.10GHz

Gruß,
Johannes

Programmiert in Profan X2
(Release) Gravity the Game
12/08/12  
 




Johannes
Meyer
Error found of Andreas Miethe, functions now How pseudo.

instead of [11|12] must I (11|12) take , The square bracket was wrong.

Topic can then closed go.
 
XProfan X2
Win7 Home Premium, SP1, Core(TM) i5-2400 @ 3.10GHz

Gruß,
Johannes

Programmiert in Profan X2
(Release) Gravity the Game
12/08/12  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

6.682 Views

Untitledvor 0 min.
H.Brill10/03/22
Walter06/05/22
Christof Neuß09/10/18
Peter Max Müller10/31/17
More...

Themeninformationen

this Topic has 2 subscriber:

Johannes Meyer (3x)
Jörg Sellmeyer (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie