?
Solved

Processing a text line

Posted on 1998-11-08
5
Medium Priority
?
139 Views
Last Modified: 2010-04-04
I need to process a line of text using a function that accepts a line of text as a parameter and returns a new processed line of text as a return value. eg.
TextInput                               TextOutput
'45Hello ?there'                     ' Hello there'
0
Comment
Question by:dargie
  • 4
5 Comments
 
LVL 10

Expert Comment

by:viktornet
ID: 1346089
I'm not sure what you mean... You can not do that unless you use Pascal... If you think I misunderstood your question, please support some more info, and a more detailed explanation...

10x

Cheers,
Viktor
0
 
LVL 4

Accepted Solution

by:
dwwang earned 200 total points
ID: 1346090
Do you mean you want a function that strip all the non-alpha characters (except space) from a string? Below may be a solution:

function myStrProc(InputStr:string);

var
   OutputStr:string;
   i:integer;
begin

     OutputStr:=InputStr;
     i:=1;
     while  i<=length(OutputStr) do
        begin
           if ((Ord(OutputStr[i])>=65) and (Ord(OutputStr[i])<=90) or (Ord(OutputStr[i])>=97) and (Ord(OutputStr[i])<=122) or (Ord(OutputStr[i])=32))then
               i:=i+1
           else
               Delete(OutputStr,i,1);
        end;
        result:OutputStr;
end;

0
 
LVL 10

Expert Comment

by:viktornet
ID: 1346091
Oh is that what he wnats....here issomething,,,,,

procedure RemoveJunk(var str : string);
var
  i : integer;
begin
  for i := 1 to Length(str) do begin
    if str[i] in ['~','1','2','3','4','5','6','7','8','9','0','-','=','+','_','<','>',',','.','/','?','.',''','"',';',':',']','}','[','{','|','\','`'] then
    Delete(str, i-1, 1);
  end;
end;

Cheers,
Viktor
0
 
LVL 10

Expert Comment

by:viktornet
ID: 1346092
also include the numbers....

if str[i] in ['0'..'9'] then
...
0
 
LVL 10

Expert Comment

by:viktornet
ID: 1346093
or here is a simpler...way yo do all that....

procedure RemoveJunk(var str : string);
 var
   i : integer;
 begin
   for i := 1 to Length(str) do
     if not str[i] in ['a'..'z', 'A'..'Z'] then Delete(str, i, 1); ;
 end;

Cheers,
Viktor
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
this video summaries big data hadoop online training demo (http://onlineitguru.com/big-data-hadoop-online-training-placement.html) , and covers basics in big data hadoop .
In a question here at Experts Exchange (https://www.experts-exchange.com/questions/29062564/Adobe-acrobat-reader-DC.html), a member asked how to create a signature in Adobe Acrobat Reader DC (the free Reader product, not the paid, full Acrobat produ…
Suggested Courses

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question