I want to replace every occurrence of a dash in a string by a space.
Surely this can be done with a one-liner?

Thanks for any responses.

analyst41@hotmail.com wrote:

This MUST be from hotmail? Checking... YES!! it is.

analyst41@hotmail.com wrote:

A very long and hard to read one-liner, sure. TRANSFER the string
to an array of character (you'll have to do this in two places: the TSOURCE
operand to MERGE, and inside the MASK expression to MERGE), use
MERGE (the FSOURCE operand is, of course, just a space character),
then use TRANSFER again to get the result back into the form of a string.

Unless the above is *very* much faster (or you can prove the code
using it is a *very* critical bottle-neck) you should prefer the more
legible simple scalar loop.

do i = 1, len(string)
if(string(i:i) == '-') String(i:i) = ' '
end do

Of course, you *can* make that a one liner:

do i = 1, len(string); if(string(i:i) == '-') String(i:i) = ' '; end do

--
J. Giles

(Cheating)
CALL NODASH(len,string)

I always write a tiny Fortran (or even assembler) routine and add it
to my library if there's a chance of needing it more that once.

Terence wrote:

Well, you shouldn't need to pass the length. The call should be

call replace(string, from, to)

Where FROM is a one character thing to be replaced and TO is
a one character thing to replace FROMs with.

--
J. Giles

"I conclude that there are two ways of constructing a software
design: One way is to make it so simple that there are obviously
no deficiencies and the other way is to make it so complicated
that there are no obvious deficiencies." -- C. A. R. Hoare

On Sun, 18 May 2008 19:36:21 GMT, James Giles wrote:

Yes it can be a 1-liner.
Below ought to execute as fast, maybe faster since no explicit index
variable is invoked.
! ------------------
program test
integer,parameter :: ML=80 ! max length string processing
character(ML) :: s = 'replace-these-dashs-with-space-with-1-statement'
character :: a(ML) ; equivalence (a,s)

where (a == '-') a = ' ' ! manipulate s string
write (*,*) trim(s)
end program

analyst41@hotmail.com wrote:

Of course.

program nodash
implicit none

character(20), parameter :: test_strings(3) = (/ &
"no-dashes-wanted----", &
"--------------------", &
"++++++++++++++++-+++" &
/)
character(20) :: results(3)

integer :: i,j

do, i=1, size (test_strings)

forall (j=1:len (test_strings)) &
results(i)(j:j) = merge (test_strings(i)(j:j), ' ', test_strings(i)(j:j) /= '-')

end do

print '(a/(a))', 'answers:', results

end program

On May 19, 11:01 am, "David Frank" hotmail.com> wrote:

"utab" gmail.com> wrote in message
news:5c1a8340-24b6-43e0-9ca7-820138c64e31@24g2000hsh.googlegroups.com...