 | |||||
| พื้นฐานปาสคาล | พื้นฐาน rapidq | เว็บภาษาไทย | เว็บภาษาอังกฤษ | ||
STRING Function ( Rapid-Q BASIC ) ASC(string-expression) คืนค่ารหัสแอสกี (ตัวเลขชนิด byte) CHR$(numeric-expression) คืนค่าเป็นตัวอักษร (สตริง1อักษร) example print ASC("k") ' แสดงตัวเลขรหัสแอสกี 107 ' print CHR$(107) ' แสดงตัวอักษร k ' input s$ '-- รอรับการ enter DELETE$(string-expression, start, length) คืนค่าสตริงที่ลบข้อความแล้ว INSERT$(insert-string, source-string, index-number) คืนค่าสตริงที่แทรกข้อความแล้ว REPLACE$(source-string, replace-string, index) คืนค่าสตริงที่ตำแหน่ง index ถูกแทนด้วย replace-string REPLACESUBSTR$(source-string, replace-string, replacement-string) คืนค่าสตริงที่ replace-string ถูกแทนด้วย replacement-string REVERSE$(string-expression) สลับตัวอักษรจากด้านหลังมาด้านหน้า example $escapechars on s$ = "doraemon" print s$; " : firt value of s$" s$ = delete$( s$, 4, 1 ) print s$; " : s$ after Delete$( s$, 4, 1 )" s$ = insert$( "a", s$, 4 ) print s$; " : s$ after Insert$( \"a\", s$, 4 )" s$ = replace$( s$, "a", 5 ) print s$; " : s$ after Replace$( s$, \"a\", 5 )" s$ = replacesubstr$( s$, "aa", "ae" ) print s$; " : s$ after Replacesubstr$( s$, \"aa\", \"ae\" )" s$ = reverse$( s$ ) print s$; " : s$ after Reverse$( s$ )" input s$ '-- รอรับการ enter FIELD$(Source-string, deliminator-string, field-number) คืนค่าสตริงที่ถูกแยกโดย deliminator ลำดับที่ field-number FORMAT$(Format-string, arg1, arg2, ...) คืนค่าสตริงที่ตามที่จัดรูปแบบไว้ example s$ = "abcd-str123-456$#2" print FIELD$(s$, "-", 3) ' Please read Complete Information at Other Detailed List in Rapid-Q Documentation s$ = format$("position at 20 : %20.4g", 89.465) print s$ input s$ '-- รอรับการ enter INSTR([start,] search-string, find-string) คืนค่าตำแหน่งของ find-string ภายใน search-string LEN(string-expression) คืนค่าจำนวนตัวอักษรของ string-expr TALLY(search-string, match-string) คืนค่าจำนวนของ match-string ภายใน search-string example $escapechars on nobi$ = "NoBita NoBi" print "nobi$=" ; nobi$ print instr(1, nobi$,"B" ) ; " : INSTR(1,nobi$,\"B\") " print instr(4, nobi$,"B" ) ; " : INSTR(4,nobi$,\"B\") " print len( nobi$ ) ; " : LEN(nobi$) " print tally( nobi$, "NoBi" ) ; " : TALLY(nobi$,\"NoBi\") " MID$(string-expression, i, n) คืนค่าสตริงตั้งแต่ตัวที่ i นับไป n ตัวอักษร จาก string-expr LEFT$(string-expression, n) คืนค่าสตริงจากทางซ้ายของ string-expr จำนวน n ตัวอักษร RIGHT$(string-expression, n) คืนค่าสตริงตั้งแต่ทางขวาจำนวน n ตัวอักษร example s$ = "0123456789" print "s$="; s$ print Mid$(s$,3,3) ; " : Mid$(s$,3,3)" print Left$(s$,2) ; " : Left$(s$,2)" print Right$(s$,2) ; " : Right$(s$,2)" input s$ '-- รอรับการ enter LCASE$(string-expression) คืนค่าสตริงเป็น lower-case UCASE$(string-expression) คืนค่าสตริง upper-case LTRIM$(string-expression) คืนค่าสตริงที่ไม่มีช่องว่างทางซ้าย(ช่องว่างรหัสascii=32) RTRIM$(string-expression) คืนค่าสตริงที่ไม่มีช่องว่างทางขวา SPACE$(n) คืนค่าช่องว่างจำนวน n ตัวอักษร STRING$(count, byte) คืนค่า ตัวอักษรที่มีรหัสแอสกี byte จำนวน count ตัว STRING$(count, string-expression) คืนค่าตัวอักษร string-expr จำนวน count ตัว example print lcase$("This is TV") print ucase$("This is TV") print ltrim$(" abc"); "NO LEFT-SPACE" print rtrim$("abc "); "NO RIGHT-SPACE" print space$(3); "ok 'o' start at 4" print string$(5,80) print string$(5,"s") input s$ '-- รอรับการ enter |