![]() รูปที่ 1 ![]() รูปที่ 2 |
| ฟังก์ชั่น TranslateImg(Str) Start=instr(str, "[picture]") 'ตรวจสอบตำแหน่งเริ่มต้นของเครื่องหมาย ถ้า start=0 แล้วออกจากฟังก์ชัน 'ตำแหน่งเริ่มต้นคือ 0 ซึ่งหมายความว่าไม่มีเครื่องหมายดังกล่าว จากนั้นโปรแกรมจะสิ้นสุด End=instr( start, str, "[/ Picture]" 'ตรวจสอบตำแหน่งของเครื่องหมายสิ้นสุดที่ปรากฏหลังตำแหน่งเริ่มต้น ถ้า end=0 ให้ออกจากฟังก์ชัน 'ตำแหน่งของเครื่องหมายสิ้นสุดคือ 0 ซึ่งหมายความว่าไม่มีเครื่องหมายสิ้นสุดและ โปรแกรมสิ้นสุด MidStr=mid(str, start+4, end- start-4) 'ทำเครื่องหมายเนื้อหาที่อยู่ตรงกลางแทนที่Str=mid(str, start, end-start+5) 'ทำเครื่องหมายเนื้อหาที่อยู่ตรงกลางด้วยเครื่องหมาย เป็นเนื้อหาที่จะถูกแทนที่ Str=replace(instr, RefplaceStr,"<img src= ”&MidStr&”>”) 'แปลมาร์กอัปเป็น HTML TranslateImg Str 'เรียกใช้ฟังก์ชันนี้ซ้ำ ๆ ฟังก์ชันสิ้นสุด |