String filtering




Hi all,

I've been puzzling for a little bit over a good way to filter out
unwanted characters from a string. In particular, I have an unbounded
string and want to filter out of it all characters not in 'a'..'z',
'A'..'Z', '0'..'9'. So far I've only thought of tedious ways to do
it. Is there an easy way to do it using the string handling facilities
in Ada? I think I almost got there with the idea of using
Maps.Character_Set, and so on, but I haven't quite pieced it together
yet.

Thanks.

David

--

David Trudgett
http://www.zeta.org.au/~wpower/

We must learn to live together as brothers or perish together as
fools.

-- Martin Luther King, Jr.

.



Relevant Pages

  • Re: String filtering
    ... >> I've been puzzling for a little bit over a good way to filter out ... >> unwanted characters from a string. ... David Trudgett ... and the murder with the justifications of its necessity ...
    (comp.lang.ada)
  • Re: Filtering records on a form using multiple combo boxes
    ... So, then, you will need to build the Where string from that information, ... these 3 combo boxes have command buttons to activate the filtering ... filter the field in the record list box.. ... For the Agent Combo Box, ...
    (microsoft.public.access.forms)
  • RE: Set Filter from Startup form to another form
    ... Private Sub Form_Load ... Dim strPrg As String ... Private Function StartProgramAs String ... Now all that is necessary is to set the filter for each form where you want ...
    (microsoft.public.access.formscoding)
  • Re: Filter for Report not working?????
    ... cno2, cField string ... contFilter DynArrayString ... I surround the value with quotes to make it a string otherwise the filter ... I decided to go with a table in PRIV for the report. ...
    (comp.databases.paradox)
  • data access page search code
    ... Dim SerVal As String 'Value to search against ... Dim strWhere As String 'The filter to use ... Dim strPrompt As String 'MsgBox prompt to use ...
    (microsoft.public.access.modulesdaovba)