sample code to identify special characters in a string

[Former Member]

Hi,

I need to identify special characters in a string.... could anybody send me some code please.......

Thanks,

Best regards,

Karen

[former_member188827]

try fm

CHECK_STRING_SPEC_CHARACTERS

please reward points if dis helps

[Former Member]

declare a constant that has all the special characters like

gc_spl(20) type c value '!@#$%....'

if string CA gc_spl.

string+0(sy-fdpos) = space.

endif.

or use

CHECK_STRING_SPEC_CHARACTERS

[Former Member]

data: str(100) type c.

data: str_n type string.

data: str_c type string.

data: len type i.

data: ofst type i.

str = '#ABCD%'.

len = strlen( str ).

do.

if ofst = len.

exit.

endif.

if str+ofst(1) co sy-abcde.

concatenate str_c str+ofst(1) into str_c.

else.

concatenate str_n str+ofst(1) into str_n.

endif.

ofst = ofst + 1.

enddo.

write:/ str.

write:/ str_c.

write:/ 'spacial chracter',20 str_n.

Function module <b>SF_SPECIALCHAR_DELETE</b> <b>DX_SEARCH_STRING</b>

l_address1 = i_adrc-street.

CHECK NOT L_ADDRESS1 IS INITIAL.

len = STRLEN( l_address1 ).

do len times.

if not l_address1+l(1) ca

'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 '.

• if i_adrc-street+l(1) CO sy-abcde.

• elseif i_adrc-street+l(1) CO L_NUMCHAR.

exit.

endif.

l = l + 1.

enddo.

data : spchar(40) type c value '~!@#$$%^&()?...'etc.

data :gv_char .

data:inp(20) type c.

take the string length .

len = strlen (i/p).

do len times

MOVE FNAME+T(1) TO GV_CHAR.

IF gv_char CA spchar.

MOVE fnameT(1) TO inp2T(1).

ENDIF.

T = T + 1.

enddo.

REPORT ZEX4 .

PARAMETERS: fname LIKE rlgrap-filename .

DATA: len TYPE i,

T TYPE I VALUE 0,

inp(20) TYPE C,

inp1(20) type c,

inp2(20) type c,

inp3(20) type c.

DATA :gv_char.

data : spchar(20) type c value '#$%^&*()_+`~'.

START-OF-SELECTION.

CONDENSE fname.

len = strlen( fname ).

• WRITE:/ len.

DO len TIMES.

MOVE FNAME+T(1) TO GV_CHAR.

IF gv_char ca spchar.

MOVE fnameT(1) TO inpT(1).

ENDIF.

T = T + 1.

ENDDO.

CONDENSE INP.

write:/ 'Special Characters :', inp.

Rewards if useful..........

Minal

[former_member188827]

data zstring type string value 'hi* how r u'.

data zerror type T130F-KZREF.

data zch.

CALL FUNCTION 'CHECK_STRING_SPEC_CHARACTERS'

EXPORTING

string = zstring

IMPORTING

CHARACTER = zch

ERRORFLAG = zerror

.

WRITE: / zch,zerror.

[Former Member]

hi

good

check this example

Write a program to give input as “+91-44-42040260”, output should be “ 91 44 42040260”.

Ans :

DATA:INPUT(15) VALUE '+91-44-42040260',

STR(4) VALUE '+ - '.

TRANSLATE INPUT USING STR.

WRITE:/ INPUT.

reward point if helpful.

thanks

mrutyun^

[Former Member]

Hi guys,

Thanks a million!!!

Best regards,

Karen