6.2
การจัดการส่วนประกอบของข้อความ
ในภาษา
OpenOffice
/ LibreOffice Basic
จะมีชุดคำสั่งที่เกี่ยวกับการจัดการส่วนประกอบของข้อความอยู่
4
ชุดคำสั่ง
ได้แก่
- -คำสั่ง Len(ข้อความ) เป็นชุดคำสั่งที่ทำหน้าที่หาความยาว หรือจำนวนตัวอักษรภายในข้อความ
- -คำสั่ง Left(ข้อความ, จำนวนตัวอักษร) เป็นชุดคำสั่งที่ทำหน้าที่ คัดลอกตัวอักษรภายใน “ข้อความ” ตามจำนวนตัวอักษรที่ต้องการ โดยเริ่มจากทางด้านซ้ายสุดของข้อความ
- -คำสั่ง Right(ข้อความ, จำนวนตัวอักษร) เป็นชุดคำสั่งที่ทำหน้าที่ คัดลอกตัวอักษรภายใน “ข้อความ” ตามจำนวนตัวอักษรที่ต้องการ โดยเริ่มจากทางด้านขวาสุดของข้อความ
- -คำสั่ง Mid(ข้อความ, ตำแหน่งเริ่มต้น, จำนวนตัวอักษร) เป็นชุดคำสั่งที่ทำหน้าที่ คัดลอกตัวอักษรภายใน “ข้อความ” โดยเริ่มจากตำแหน่งที่กำหนดในส่วน “ตำแหน่งเริ่มต้น” ตามจำนวนตัวอักษรที่ต้องการ
ตัวอย่างที่
6-01
: การใช้ชุดคำสั่งจัดการส่วนประกอบของข้อความ
SUB
subExample06_01
Dim sTestStr
As String
Dim sDisplay
As String
sTestStr =
"หลงแต่ความรู้สูงจึงจูงโลกสู่ประลัยกัลป์"
'เก็บข้อความแสดงผล
sDisplay =
"sTestStr = ""หลงแต่ความรู้สูงจึงจูงโลกสู่ประลัยกัลป์"""
sDisplay =
sDisplay + Chr(13) + Chr(13) + _
"ข้อความที่เก็บใน
sTestStr
มีความยาว
"
+ _
Len(sTestStr)
+ " ตัวอักษร
"
+ Chr(13) + Chr(13)
sDisplay =
sDisplay + "ผลของคำสั่ง
Left(sTestStr,
16) คือ
"
+ _
Left(sTestStr,
16)
sDisplay =
sDisplay + Chr(13) + _
"ผลของคำสั่ง
Mid(sTestStr,
17, 9) คือ
"
+ _
Mid(sTestStr,
17, 9)
sDisplay =
sDisplay + Chr(13) + _
"ผลของคำสั่ง
Right(sTestStr,
14) คือ
"
+ _
Right(sTestStr,
14)
MsgBox
sDisplay
END
SUB
|
![]() |
รูปที่
6-01
ผลการทำงานของซับรูทีน
subExample06_01
|
6.3
กิจกรรมที่เกี่ยวกับการค้นหาคำหรือข้อความ
กิจกรรมที่เกี่ยวกับการค้นหาคำหรือข้อความ
หมายถึง การใช้ชุดคำสั่งสำหรับการค้นหาคำหรือข้อความย่อยๆ
ที่อยู่ภายในข้อความหลัก
เพื่อหาตำแหน่งของข้อความย่อยดังกล่าว
หรือเพื่อแทนที่ข้อความ
หรือเพื่อลบข้อความย่อยนั้นๆ
ออกจากข้อความหลัก
ซึ่งในกรณีของการค้นหาคำหรือข้อความย่อยๆ
ในข้อความหลัก สำหรับในภาษา
OpenOffice
/ LibreOffice Basic จะมีคำสั่งให้ใช้โดยเฉพาะ
ซึ่งได้แก่ คำสั่ง InStr()
ส่วนการค้นหาข้อความย่อยเพื่อแทนที่
หรือเพื่อลบข้อความย่อยนั้นๆ
ในข้อความหลัก จะต้องเขียนเป็นซับรูทีน
หรือฟังก์ชันขึ้นมาเอง
6.3.1
การค้นหาข้อความด้วยคำสั่ง
InStr()
คำสั่ง
InStr()
เป็นคำสั่งชุดคำสั่งแบบฟังก์ชัน
ซึ่งทำหน้าที่นำข้อความย่อย
ไปเปรียบเทียบกับข้อความหลัก
แล้วให้ค่าเป็นตัวเลขแสดงจุดเริ่มต้นของข้อความย่อยในข้อความหลักที่ค้นพบ
และในกรณีที่ไม่พบข้อความย่อยในข้อความหลัก
คำสั่งนี้จะให้ค่าเป็น 0
สำหรับรูปแบบชุดคำสั่ง
InStr()
มีดังนี้
รูปแบบชุดคำสั่ง
:
InStr
([StartPosition As Long,] MainString As String, SearchString As
String[, Compare]) As Integer
|
โดยที่
StartPosition หมายถึง
เลขตำแหน่งจุดเริ่มต้นในข้อความหลักที่จะทำ การค้น
MainString หมายถึง
ข้อความหลัก
SearchString หมายถึง
ข้อความที่ต้องการนำไปค้น
Compare หมายถึง
เลขกำกับการเปรียบเทียบตัวอักษร
(สำหรับภาษาอังกฤษ)
โดยถ้าระบุเป็นเลข
0
จะเป็นการเปรียบเทียบแบบตัวอักษรตัวพิมพ์เล็กและตัวพิมพ์ใหญ่ต่างกัน
ถ้าระบุเป็นเลข 1
จะเป็นการเปรียบเทียบโดยไม่สนใจตัวอักษรแบบตัวพิมพ์เล็กหรือตัวพิมพ์ใหญ่
แต่โดยปรกติถ้าไม่ระบุส่วน
Compare
จะเป็นการเปรียบเทียบโดยไม่สนใจตัวอักษรแบบตัวพิมพ์เล็กหรือตัวพิมพ์ใหญ่
หมายเหตุ |
ขนาดของข้อความหลักที่คำสั่ง
InStr()
สามารถทำงานได้
จะมีขนาดไม่เกิน 65535
ตัวอักษร
|
ตัวอย่างที่
6-02
: ตัวอย่างการค้นหาข้อความ
SUB
subExample06_02
Dim sText As
String
sText =
"ยากจะตายหากเอาเม็ดทรายปั้นเป็นแผ่นทอง"
MsgBox
"sText = ""ยากจะตายหากเอาเม็ดทรายปั้นเป็นแผ่นทอง"""
+ _
Chr(13) +
Chr(13) + "ผลการทำงานของคำสั่ง
"
+ _
"InStr(sText,
""ปั้น"")
คือ
"
+ InStr(sText, "ปั้น")
END SUB
|
![]() |
รูปที่
6-02
ผลการทำงานของซับรูทีน
subExample06_02
|
เวลา
|
เหตุการณ์
|
|||
06:00 น. | ตื่นนอน อ่านวารสารเกษตรกรรมธรรมชาติ | |||
06:45 น. | เก็บเห็ดนางฟ้า | |||
07:15 น. |
งานของกิจกรรมอาชีพ
กสิกรรมธรรมชาติ บ้านแม่ทำ
สีทา (3/2557) : เตรียมเครื่องตัดหญ้า
และไปตัดหญ้าเตรียมพื้นที่ปลูกข้าวโพดข้าวเหนียว
|
|||
08:45 น. |
|
|||
09:15 น. | ทำบันทึกประจำวันของวันก่อน ทำบัญชีครัวเรือน | |||
09:30 น. |
งานของกิจกรรมอาชีพ
งานอินเตอร์เน็ต
(18/2557) : ทำต้นฉบับบทตความเรื่องใหม่
เชื่อมต่ออินเตอร์เน็ต
ปรับแต่ง Affiliate
Program
|
|||
12:45 น. |
|
|||
13:00 น. | งานของกิจกรรมอาชีพ งานอินเตอร์เน็ต (18/2557):ปรับแต่ง Affiliate Program | |||
13:30 น. |
0.งานของกิจกรรมอาชีพ
กสิกรรมธรรมชาติ บ้านแม่ทำ
สีทา (3/2557) : สูบน้ำรดต้นไม้
และสูบน้ำใช้ด้วยปั้มชักพลังงานโซลาร์เซลล์
|
1.กวาดพื้นใต้ถุนบ้าน | ||
15:00 น. | 1.พักผ่อน | |||
16:00 น. | งานของกิจกรรมอาชีพ งานการตลาดและการลงทุน (20/2557) : ไปหาลูกค้าที่ประดู่เหลี่ยม | |||
19:00 น. |
|
|||
20:15 น. | ทำบันทึกประจำวัน, ทำบัญชีครัวเรือน | |||
20:30 น. |
ลองเชื่อมต่ออินเตอร์เน็ต
แต่เชื่อมต่อไม่ได้
เนื่องจากแบตเตอรี่ชุดเครื่องทวนสัญญาณไฟหมด
|
|||
20:00 น. | เข้านอน |