SRL Archive - Help and Support

i was wondering if there was a procedure or function that could swap spaces with underscores in a bit of text that you have put in

example
i have a function called SwapSpaces which will switch the spaces for underscores and i use it like this
Text:= SwapSpaces('hello i own u');
and then text would equal hello_i_own_u

if you dont understand i will try to explain more clearly

~shut

I don't understand, why do you need this?

i need it for a little project for my brother

i am creating a script and it is nearly finished but if the user puts in text with spaces then hte script will mess up

and as he said he might release it he cnat be bothered to tell everyone to use underscores instead of spaces :)

if there isnt one how hard would it be to create one because i have noidea how to do it :s

~shut

function SwapSpaces(str: string): string;
var
 i, L: integer;
begin
  L := length(str);
  for i := 1 to L do
   if str[i] = ' ' then
    result := result + '_'
   else
    result := result + str[i];
end;

function SwapSpaces(Text : String): String;

var
  P : Integer;

begin
  Result := Text;
  repeat
    P := Pos(' ', Result);
    if P = 0 then
      Break;
    Delete(Result, P, 1);
    Insert('_', Result, P);
  until false;
end;



begin
  Writeln(SwapSpaces('Why hello there my good friend!'));
end.

Like that, champ? :)

Test it, it works!

E: Narcle beat me too it, but mine will be faster as its run off of delphi.

From: Narcle

function SwapSpaces(str: string): string;
var
 i, L: integer;
begin
  L := length(str);
  for i := 1 to L do
   if str[i] = ' ' then
    result := result + '_'
   else
    result := result + str[i];
end;

ty i didnt expect it to be that simple :p
rep++

~shut

begin
  Writeln(Replace('Hello this is a test', ' ', '_'));
end.

From: nielsie95

begin
  Writeln(Replace('Hello this is a test', ' ', '_'));
end.

Yeah… after I posted what I had I'm like… wait isn't there a "Replace" function. lol

But didn't bother posting back.

lol i was gunna say that i thought someone might have said that.

Ever heard of ReplaceRegex?

begin
  Writeln(ReplaceRegex('This is the sample text', ' ', '_'));
end.

?

[QUOTE=Dan's The Man;460937]Ever heard of ReplaceRegex?

[scar]begin
Writeln(ReplaceRegex('This is the sample text', ' ', '_'));
end.

?

Yes, but regex isn't needed here.

From: bullzeye95
Yes, but regex isn't needed here.

It pretty much does the same thing <_>

That's why it isn't needed.

From: nielsie95
That's why it isn't needed.

What's the difference?

Speed.

From: nielsie95
Speed.

lol.

Spam.

He is finished being helped :)

Why would you use ReplaceRegex when no regex is involved?

From: Bobarkinator
Why would you use ReplaceRegex when no regex is involved?

I don't even know what a regex is :p But it does the same thing as the original user requested ;)

[QUOTE=Dan's The Man;462676]I don't even know what a regex is :p But it does the same thing as the original user requested ;)

Regular Expression.

It's for when you might have several strings and you want them to match certain cases.