|
|
半角、全角文字変換
PRINT CDBL$("ABCDＡＢＣ123") !'半角を全角文字へ
PRINT CSNG$("あいうＡＢＣＤＥ123１２３４") !'全角を半角文字へ
FOR I=1 TO 100
PRINT CDBL$(STR$(I) & ":" & NUM2ROMAN$(I))
NEXT I
END
EXTERNAL FUNCTION CDBL$(X$)
FOR I=1 TO LEN(X$)
LET F$=MID$(X$,I,1)
RESTORE
DO
READ A$,AA$
LOOP UNTIL A$="" OR F$=A$
IF A$="" THEN LET AA$=F$
LET L$=L$ & AA$
NEXT I
LET CDBL$=L$
DATA A,Ａ,B,Ｂ,C,Ｃ,D,Ｄ,E,Ｅ,F,Ｆ,G,Ｇ,H,Ｈ,I,Ｉ,J,Ｊ,K,Ｋ,L,Ｌ,M,Ｍ,N,Ｎ,O,Ｏ,P,Ｐ,Q,Ｑ,R,Ｒ,S,Ｓ,T,Ｔ,U,Ｕ,V,Ｖ,W,Ｗ,X,Ｘ,Y,Ｙ,Z,Ｚ
DATA a,ａ,b,ｂ,c,ｃ,d,ｄ,e,ｅ,f,ｆ,g,ｇ,h,ｈ,i,ｉ,j,ｊ,k,ｋ,l,ｌ,m,ｍ,n,ｎ,o,ｏ,p,ｐ,q,ｑ,r,ｒ,s,ｓ,t,ｔ,u,ｕ,v,ｖ,w,ｗ,x,ｘ,y,ｙ,z,ｚ
DATA 0,０,1,１,2,２,3,３,4,４,5,５,6,６,7,７,8,８,9,９
DATA "!",！,"#",＃,"$",＄,"%",％,"&",＆,"'",’,"(",（,")",）,"=",＝,"~",～,"+",＋,"-",－,"*",＊,"/",／,".",．,"<",＜,">",＞,"?",？,";",；,":",：,"@",＠,"\",￥
DATA " "," "
DATA "",""
END FUNCTION
EXTERNAL FUNCTION CSNG$(X$)
FOR I=1 TO LEN(X$)
LET F$=MID$(X$,I,1)
RESTORE
DO
READ A$,AA$
LOOP UNTIL A$="" OR F$=AA$
IF A$="" THEN LET A$=F$
LET L$=L$ & A$
NEXT I
LET CSNG$=L$
DATA A,Ａ,B,Ｂ,C,Ｃ,D,Ｄ,E,Ｅ,F,Ｆ,G,Ｇ,H,Ｈ,I,Ｉ,J,Ｊ,K,Ｋ,L,Ｌ,M,Ｍ,N,Ｎ,O,Ｏ,P,Ｐ,Q,Ｑ,R,Ｒ,S,Ｓ,T,Ｔ,U,Ｕ,V,Ｖ,W,Ｗ,X,Ｘ,Y,Ｙ,Z,Ｚ
DATA a,ａ,b,ｂ,c,ｃ,d,ｄ,e,ｅ,f,ｆ,g,ｇ,h,ｈ,i,ｉ,j,ｊ,k,ｋ,l,ｌ,m,ｍ,n,ｎ,o,ｏ,p,ｐ,q,ｑ,r,ｒ,s,ｓ,t,ｔ,u,ｕ,v,ｖ,w,ｗ,x,ｘ,y,ｙ,z,ｚ
DATA 0,０,1,１,2,２,3,３,4,４,5,５,6,６,7,７,8,８,9,９
DATA "!",！,"#",＃,"$",＄,"%",％,"&",＆,"'",’,"(",（,")",）,"=",＝,"~",～,"+",＋,"-",－,"*",＊,"/",／,".",．,"<",＜,">",＞,"?",？,";",；,":",：,"@",＠,"\",￥
DATA " "," "
DATA "",""
END FUNCTION
EXTERNAL FUNCTION NUM2ROMAN$(X) !'(アラビア)数字 to ローマ数字(1以上4000未満)
LET R$=""
IF X < 4000 AND X > 0 THEN
OPTION BASE 0
DIM T$(4,9)
FOR I=1 TO 3
FOR J=1 TO 9
READ T$(I,J)
NEXT J
NEXT I
DATA I,II,III,IV,V,VI,VII,VIII,IX
DATA X,XX,XXX,XL,L,LX,LXX,LXXX,XC
DATA C,CC,CCC,CD,D,DC,DCC,DCCC,CM
FOR J=1 TO 3
READ T$(4,J)
NEXT J
DATA M,MM,MMM,MMMM
LET A$=LTRIM$(STR$(INT(X)))
FOR I=LEN(A$) TO 1 STEP -1
LET J=VAL(MID$(A$,LEN(A$)-I+1,1))
LET R$=R$ & T$(I,J)
NEXT I
END IF
LET NUM2ROMAN$=R$
END FUNCTION
|
|