ENTER A STRING AND RETURN AN INT

[Hein van den Heuvel]

Yeah well... where the heck is the VMS component in this question.
Suddenly the whole problem sounds like a middle school home work excercise.

Oh well,
Regards,

Hein.

[Lawrence Czlapinski]

Hein: My solution with a one correction catches false positives. I was checking for the wrong end value. Better to use f$length.
CONSHY» string="#F"
CONSHY» original_string="#F"
CONSHY» length=F$LENGTH(original_string)
CONSHY» if length.eq.1 then string=original_string+" "
CONSHY» if length.eq.2 string=original_string
%DCL-W-EXPSYN, invalid expression syntax - check operators and operands
CONSHY» if length.eq.2 then string=original_string
CONSHY» list="C C#D D#E F F#G G#A A#B "
CONSHY» integer_var=f$locate(string,list)/2
CONSHY» sh sym integer_var
INTEGER_VAR = 12 Hex = 0000000C Octal = 00000000014
CONSHY» if integer_var .eq. f$length(list)/2 then write sys$output "string error
on ",string
string error on #F
CONSHY»
Lawrence

[Jan van den Ende]

Martin,

Let me do the honor that the previous posters omitted:

Welcome to the VMS forum.

And in case Hein is right (excuses when he and me are wrong!)

since you happened to trip on the worlds MOST stable, MOST secure (and regrettably, best kept-secret) OS, you are cordially invited to get some better aquaintance with it.
Be warned: the elegance, consistency, security, stability, & scalability of it, will forever ruin your positive view of any other OS!

Once again: Welcome.

Proost.

Have one on me.

jpe

[Lawrence Czlapinski]

Hein: You were right. I used the wrong input value. So it is better to use a delimiter.
Lawrence

[John Gillings]

Don't forget your enharmonic synonyms!

flats
C Db E Eb E...

double sharps
B+C#C+D#D+...

double flats
DbbDbEbbDbFb...

Upper casing might not be such a good idea if you use "b" for "flat".

[Martin Devek]

strcmp

[David B Sneddon]

Martin,

To borrow some text from Jan...

from your Forum Profile:


I have assigned points to 0 of 13 responses to my questions.


Maybe you can find some time to do some assigning?

http://forums1.itrc.hp.com/service/forums/helptips.do?#33

It is fully up to _YOU_ to decide how many points you
assign. If you consider an answer is not deserving any
points, you can assign 0 points, and then that answer
will no longer be counted as unassigned.
Consider, that every poster took at least the trouble
of posting for you!

To easily find your streams with unassigned points,
click your own name somewhere, this will bring up your
profile. Near the bottom of that page, under the caption
"My Question(s)" you will find "questions or topics with
unassigned points", clicking that will give all, and
only, your questions that still have unassigned postings.

Thanks on behalf of your Forum colleagues.

PS. Nothing personal in this. Jan tries to post it to
everyone with this kind of assignment ratio in this forum.
If you have received a posting like this before, please do
not take offence, none is intended!

Proost.

Have one on Jan.

Dave

[Arch_Muthiah]

Jan,

This thread has a sign of "this question has at least one answer that has received a rating of 8 points or better" when Martin does not assign ponits to any of the answers.

Archunan