Unable to execute function.

sylvan_rydes · Post by **sylvan_rydes** » Wed Apr 12, 2006 12:21 pm

Hi All,

This is my first post. I am new to DS. I have the following function.

Iconv(Trim(UpCase(Input.Link)),"MY")

Now it is good when input is just character. But it doesn't work when I have any alpha character in there.

Also anyone can suggest any idea to convert the link character by character.

Thanks.
Sylvan

ArndW · Post by **ArndW** » Wed Apr 12, 2006 12:36 pm

Welcome to DSXchange, Sylvan.
Could you tell us what the data is that comes in and what you want output? The conversion looks a bit too complicated.

sylvan_rydes · Post by **sylvan_rydes** » Wed Apr 12, 2006 12:43 pm

Hi Arnd,

Thank you. Well as I have said the function already. The link value may look like V@O.45. Now I need to convert it character by character to ASCII. So it should look like 866470465253. Well I am trying otherwise look for some other code generation.

It would be great if you caould write the function.
Sylvan

DSguru2B · Post by **DSguru2B** » Wed Apr 12, 2006 1:08 pm

It is not clear to me from what format to what format are you trying to convert. But the eg that you gave. That tells me that your changing from ascii to its code value.
User the seq() function. That will get you what you want.

sylvan_rydes · Post by **sylvan_rydes** » Wed Apr 12, 2006 1:16 pm

Thanks for your reply. You are very true. We have email address and we are generating equivalent ASCII value. Well your suggestion gives me value for first character. Is there anyway I can do it without using a loop.

Sylvan

kcbland · Post by **kcbland** » Wed Apr 12, 2006 1:21 pm

No, write a DS function to do the work on a passed string. Something like this should work:

Code: Select all

StrLen=LEN(Arg1)
Ans = ""
For i=1 to StrLen
  Ans := SEQ(Arg1[i,1])
Next i

DSguru2B · Post by **DSguru2B** » Wed Apr 12, 2006 1:29 pm

Write a routine
I played with it , heres what i got

Code: Select all

      x = ''
      LnX = 0
      Val=''
      Curr = ''
      num = 0

      x = trimB(Arg1)

      LnX = Len(x)

      For n = 1 To LnX

         Curr = x[n,1]
         Val := Seq(Curr)

      Next n

      Ans = Val

This should work

DSguru2B · Post by **DSguru2B** » Wed Apr 12, 2006 1:29 pm

Ken's solution is much better, pretty much the same, sorry Ken, failed to see your reply

kcbland · Post by **kcbland** » Wed Apr 12, 2006 1:31 pm

Style points count

I have an unfair advantage having programmed in DS BASIC since 1988.

sylvan_rydes · Post by **sylvan_rydes** » Wed Apr 12, 2006 1:32 pm

That was awesome. Thank all you people. I din know it is so good here.

Thanks again,
Sylvan

DSguru2B · Post by **DSguru2B** » Wed Apr 12, 2006 1:33 pm

It sure does.