_ReplaceValue ( pText ; pSearch ; pReplaceText ; pCounter ; pMaxCounter ; pSwitch )

ReplaceValue

Average rating: 4.5 (23 votes) Log in to vote

Matijas Federspiel
ComZuWeb-Datasystem
http://www.comzuweb-datasystem.de/

Sample input:

G_TX_ReplaceValue (pText ; pSearch ; pReplaceText ; pCounter ; pMaxCounter ; pSchalter )

(Value=Hallo 2¶2 Hallo¶Hallo)

Search = Hallo 2
Replace = Meier

Sample output:

Meier¶
2 Hallo¶
Hallo

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* 2014-05-09 MF: Replace Exact Text Value

Mit dieser Funktion kann man in MultilineValues einzelne Values austauschen mit und ohne case sensitive. 

example 1 : Inhalt = Hallo 2¶
                      2 Hallo¶
                      Hallo

      searchvalue = Hallo 2
     replacevalue = Meier  

pText             = MultilineValue 
pSearch           = searchvalue 
pReplaceText      = replaceValue
vSwitch           = E / V (E=Exact / V=Verify without Case sensitiv) 

 */

Let ([

   vCounter          = Case ( IsEmpty( pCounter ) ; 1 ; pCounter) ;
   vMax                = pMaxCounter;
   vLength            = Case (Length(MiddleValues ( pText; pCounter ; 1 ))=Length(MiddleValues ( pSearch ; 1 ; 1 ));1);
   vExakt              = Case (Exact (MiddleValues(pText;pCounter;1); MiddleValues(pSearch;1;1));1);
   vVerify              = Case (MiddleValues(pText;pCounter;1)=MiddleValues(pSearch;1;1);1);
   vSwitch           = Case (pSwitch="E";vExakt;pSwitch="V";vVerify);
   vReplace           = Case (vCounter=vMax and IsEmpty (pReplaceText);"";IsEmpty (pReplaceText);"";vCounter=vMax;pReplaceText;Case(Right(pReplaceText;1) ≠ "¶";pReplaceText&"¶";pReplaceText));
   vText                = Case (vCounter=vMax;Substitute (MiddleValues(pText;pCounter;1);"¶";"");MiddleValues(pText;pCounter;1))
]
;
Case (not IsEmpty(vLength) and not IsEmpty (vSwitch);vReplace;vText) 
 )

2014 © by Matijas Federspiel, ComZuWeb-DataSystem from Germany

Mit dieser Funktion kann man in MultilineValues einzelne Values austauschen mit und ohne case sensitive.

Comments

		Herve, France May 9, 2014
There's a typo in line vSchalter= Case (pSchalter="E";vExakt;pSchalter="V";vVerify); Should replace "pSchalter" with "pSwitch" twice. Regards H

		oliver May 9, 2014
IMHO, you should â€¦ 1. add the function signature to the internal comment, and be clear about the arguments that can be passed, and their function ('pMaxCounter = ZÃ¤hlerMax' â€¦ that's enlightening!) 2. use consistent naming in the sample input, the function name and the function itself 3. apply proper formatting and whitespace 4. use better variable names, and avoid confusing re-assignments in mid-calculation 5. learn how to use Let[] variables effectively, including implicit creation of boolean statements without Case() 6. be aware that Â¶ is not a string, but an operator, and on its own doesn't require quotes 7. test your CFs with the actual code you're posting; this one doesn't work as advertised, even when using the correct argument name 8. write in English only, and use a spell checker Apart from that: not bad â€¦ :-)

		Matijas Federspiel, Germany May 9, 2014
but excuse my english is not very good :-/ - all error out -

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

_ReplaceValue ( pText ; pSearch ; pReplaceText ; pCounter ; pMaxCounter ; pSwitch )

Comments

Support this website.

Support this website.