Case-toggle-functie?

[Dr_Flash]

Ondanks dat de maatschappelijke inzetbaarheid van mijn zoveelste project lager is dan ooit tevoren wil ik gewoon proberen of ik dit in FMP voor elkaar kan krijgen Wat ik wil is het volgende. Er is een invoerveld waarin men een willekeurige lap tekst kan invoeren. Dan klik je op een knop en komt diezelfde tekst er uit maar dan om en om in hoofd- en kleine letters

 

dus:

invoer: Dit is een voorbeeldje

 

*klik*

 

DiT Is EeN VoOrBeElDjE

 

ik heb al een calculatie gemaakt voor de eerste drie tekens, maar ja, je wil dat natuurlijk eigenlijk in een loopje stoppen dat ophoudt zodra Length (invoer) bereikt is. Alleen, hoe doe je dat in een calculatie? Of wil ik teveel?

[Koen Van Hulle]

Leuk vraagje en niet zo moeilijk. Je hebt inderdaad een scriptje nodig. Je moet eigenlijk lopen doorheen je string. In bijlage een voorbeeldje.

 

Koen

letters.fp5

letters.fp5

[Dr_Flash]

Ja cool dank je wel Dat doet inderdaad wat ik wilde! Hier kan ik mee verder.

[Arnoud]

De maatschappelijke inzetbaarheid is inderdaad laag, maar de educatieve waarde des te groter....

Goed gedaan Koen!

[Dr_Flash]

De maatschappelijke inzetbaarheid is inderdaad laag!

 

Hey je moet tegenwoordig ook met de BrEeZaH-generatie mee kunnen praten beetje talenkennis kan nooit kwaad

[AvD]

Hey je moet tegenwoordig ook met de BrEeZaH-generatie mee kunnen praten beetje talenkennis kan nooit kwaad

 

Wattehel betekent dat? Heeft dat iets met die drankjes te maken, en maken ze daar nu al een generatie van? Of zittik er helemaal naast?

[Koen Van Hulle]

iK zOu HeT eErLiJk GeZeGd OoK nIeT wEtEn

[Dr_Flash]

Hey je moet tegenwoordig ook met de BrEeZaH-generatie mee kunnen praten beetje talenkennis kan nooit kwaad

 

Wattehel betekent dat? Heeft dat iets met die drankjes te maken, en maken ze daar nu al een generatie van? Of zittik er helemaal naast?

 

Ja klopt Het is een variant van geschreven taal die [stigmatiserend] vooral gebruikt wordt door meisjes van 14-16 jaar. Vaak gebruiken ze ook nog andere "technieken" zoals extensie en fonetische substitutie:

 

"biertjes" wordt "BiErTjUuUuHhZz" hoewel dat een vrij extreem voorbeeld is. Ik heb eens een klein taalkundig onderzoekje gedaan naar de verschillen tussen BrEeZaH en 1337, het al wat langer bestaande hackers-"taaltje". Maar goed, dit alles is natuurlijk ZWAAAAR Off-topic

[Koen Van Hulle]

Dit kun je nu lekker met een custom function doen:

 

UpperLower(text; upperlower)

 

Let ( [ 
thischaracter = Left ( text ; 1 )
;
nextstart =  If( 
thischaracter = "."
or
thischaracter = " "
or
thischaracter = ","
or
thischaracter = ";"
or
thischaracter = ":"
or
thischaracter = "!"
or
thischaracter = "?"
or
thischaracter = " +"
; start ;  If(start; 0 ; 1 ))
; 
letter = If(start; Upper(thischaracter); Lower(thischaracter))

]
; 

letter & 

 If ( Length ( text )  > 1; 
   UpperLower(Right ( text; Length ( text )  - 1) ; nextstart
 ) ; "" ) 

)

 

Gebruik:

UpperLower("Dit is een testje." ; 1)

[rmw]

Als de code zo kort mogelijk moet kan je het volgende nog vervangen

 

nextstart =  If( 
thischaracter = "." 
or 
thischaracter = " " 
or 
thischaracter = "," 
or 
thischaracter = ";" 
or 
thischaracter = ":" 
or 
thischaracter = "!" 
or 
thischaracter = "?" 
or 
thischaracter = " +" 
; start ;  If(start; 0 ; 1 )) 

 

wordt

 

nextstart =  If( Position ( thischaracter ; " .,;:!?+" ; 1 ; 1 ) ; start ;  If(start; 0 ; 1 )) 

 

rmw

[Theo Tromp]

het zou ook kunnen in een rekenveld met fmp7 developer met een recursieve user function zoals Peter Wagemans er al een heeft laten zien voor het omdraaien van de tekens in een stringveld. In Pseudocode (ik heb FMP7 Developer besteld, is nog niet binnen) werkt dat zo:

 

Functie UpEnLoW (Tekst)   /* Recursive */

If Length(Tekst) > 2
 Return(Upper(Left(Tekst,1)) & 
 Lower(Middle(Tekst,2,1)) & 
 UpEnLoW(Middle(Tekst,3,Lenght(Tekst)-2))
Else
 Return(Upper(Left(Tekst,1)) & 
 Lower(Middle(Tekst,2,1)) & 
EndIf