blob: c6d510fe7c0dc65b2e69ceb0389a036653ab0720 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
******************************************
* DELETE
* Deletes String in Text
******************************************
#################################################################
# MIT License - Copyright (c) 2009 Guido Milanese
# See file LICENSE in this package
#################################################################
* Guido Milanese 2004
* removed error message, 2009
* <guido.milanese@unicatt.it>
* Example:
* String = delete(String,";,:.") ;* deletes any char listed in "..."
define('delete(String,Txt)') :(delete_end)
delete
~(String ? any(Txt)) :s(freturn)
delete_loop
String ? any(Txt) = '' :s(delete_loop)f(delete_return)
delete_return delete = String :(return)
delete_end
|