การคัดลอกรหัสมีดังนี้:
-
Classstringoperations
-
'' '' @function คำอธิบาย: สลับสตริงเป็นอาร์เรย์ถ่าน
'' '' @parameter คำอธิบาย: -str [String]: สตริงที่ต้องแปลง
'' '' @return value:-[array] array ประเภทถ่าน
-
PublicFunction ToChararray (ByVAlstr)
Redimchararray (Len (Str))
fori = 1tolen (str)
chararray (i-1) = mid (str, i, 1)
ต่อไป
tochararray = chararray
endfunction
-
'' '' @function คำอธิบาย: แปลงอาร์เรย์เป็นสตริง
'' '' @parameter คำอธิบาย: -arr [array]: ข้อมูลที่ต้องแปลง
'' '' @return value:-[String] String
-
PublicFunctionArrayToString (Byvalarr)
fori = 0toubound (arr)
strobj = strobj & arr (i)
ต่อไป
arrayToString = strobj
endfunction
-
'' '' @function คำอธิบาย: ตรวจสอบว่าสตริงต้นทางเริ่มต้นด้วยตัวอักษรหรือไม่
'' '' @parameter คำอธิบาย: -str [สตริง]: สตริงต้นทาง
'' '' @parameter คำอธิบาย: -chars [String]: การเปรียบเทียบอักขระ/สตริง
'' '' @return value:-[bool]
-
PublicFunctionStartswith (Byvalstr, Chars)
ifleft (str, len (chars)) = charsthen
startswith = true
อื่น
startswith = false
endif
endfunction
-
'' '' @function คำอธิบาย: ตรวจสอบว่าสตริงต้นทางจะลงท้ายด้วยตัวอักษร
'' '' @parameter คำอธิบาย: -str [สตริง]: สตริงต้นทาง
'' '' @parameter คำอธิบาย: -chars [String]: การเปรียบเทียบอักขระ/สตริง
'' '' @return value:-[bool]
-
PublicFunctionEndswith (Byvalstr, Chars)
ifright (str, len (chars)) = charsthen
endswith = true
อื่น
endswith = false
endif
endfunction
-
'' '' @function คำอธิบาย: คัดลอก n Strings