Function YindeeReplaceStr
HOSxP Community
HOSxP Community Forum
HOSxP Community
ข่าว: SMF - Just Installed
 
*
ยินดีต้อนรับคุณ, บุคคลทั่วไป กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน เมษายน 17, 2014, 11:12:16 AM


เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น


หน้า: [1]   ลงล่าง
  พิมพ์  
ผู้เขียน หัวข้อ: Function YindeeReplaceStr  (อ่าน 4900 ครั้ง)
0 สมาชิก และ 0 บุคคลทั่วไป กำลังดูหัวข้อนี้ Send to Stock topic | Answer point : 0
naj
Hero Member
*****

Karma: -3
ออฟไลน์ ออฟไลน์

กระทู้: 2428


najhosxp@homail.com
ดูรายละเอียด เว็บไซต์
« เมื่อ: กุมภาพันธ์ 17, 2009, 12:18:04 PM »

สำหรับท่านใดที่เคยใช้ function GetSQLSubQueryData(sql) ข้อมูลที่ได้จะเป็น 'xxxx','yyyy','zzzzz'  ซึ่งบางครั้งผู้ใช้อยากให้เครื่องหมาย ' ' หายไป โดยให้แสดงเป็น xxx,yyyy,zzzzz
จากที่เคยเรียนรู้เรื่องการสร้าง Function ขึ้นใช้เองใน Report Designer วันนี้มารู้จัก Function YindeeReplaceStr
Str คือ ข้อความ
o คือ เครื่องหมายหรือสิ่งที่อยู่ในข้อความเดิมที่ต้องการแทนที่
n คือ เครื่องหมายหรือสิ่งที่อยู่ในข้อความใหม่ที่ต้องการแทนที่แทนของเดิม
ยกตัวอย่าง เช่น  ผมต้องการแทนที่ 1 ด้วย a
ข้อมความ  str='123451';
YindeeReplaceStr(str,'1','a');
จะได้ str='a2345a'
โค๊ด
  1. Function YindeeReplaceStr(Str,o,n:string):string;

  2. var

  3. np,nl:integer;

  4. begin

  5. np:=pos(o,Str);

  6. nl:=length(o);

  7. while (np >0) do

  8. begin

  9. delete(Str,np,nl);

  10. insert(n,Str,np);

  11. np:=pos(o,Str);

  12. end;

  13. Result:=Str;

  14. end;
Created by GeSHI 1.0.7.20
ตัวอย่างตามรูปที่แนบมาครับ
« แก้ไขครั้งสุดท้าย: กุมภาพันธ์ 17, 2009, 12:38:15 PM โดย naj » Thanks : (nahos, por, armds, nuttavut, udomchok, khuad50, srwood, golf_win, phichit_admin, burntime, thapla) 118.173.240.9 (?)

Yindee And Tan
SrWooD
Hero Member
*****

Karma: 4
ออฟไลน์ ออฟไลน์

กระทู้: 1024



ดูรายละเอียด อีเมล์
« ตอบ #1 เมื่อ: กุมภาพันธ์ 17, 2009, 12:45:59 PM »

ขอบคุณครับ

สุดยอดเลยครับ

 Grin Grin Grin
Thanks : (udomchok, niyomstd) 125.26.32.123 (?)

โรงพยาบาลโพธิ์ทอง จังหวัดอ่างทอง
doramon
บุคคลทั่วไป
« ตอบ #2 เมื่อ: กุมภาพันธ์ 17, 2009, 05:30:16 PM »

สำหรับท่านใดที่เคยใช้ function GetSQLSubQueryData(sql) ข้อมูลที่ได้จะเป็น 'xxxx','yyyy','zzzzz'  ซึ่งบางครั้งผู้ใช้อยากให้เครื่องหมาย ' ' หายไป โดยให้แสดงเป็น xxx,yyyy,zzzzz
จากที่เคยเรียนรู้เรื่องการสร้าง Function ขึ้นใช้เองใน Report Designer วันนี้มารู้จัก Function YindeeReplaceStr
Str คือ ข้อความ
o คือ เครื่องหมายหรือสิ่งที่อยู่ในข้อความเดิมที่ต้องการแทนที่
n คือ เครื่องหมายหรือสิ่งที่อยู่ในข้อความใหม่ที่ต้องการแทนที่แทนของเดิม
ยกตัวอย่าง เช่น  ผมต้องการแทนที่ 1 ด้วย a
ข้อมความ  str='123451';
YindeeReplaceStr(str,'1','a');
จะได้ str='a2345a'
โค๊ด
  1. Function YindeeReplaceStr(Str,o,n:string):string;

  2. var

  3. np,nl:integer;

  4. begin

  5. np:=pos(o,Str);

  6. nl:=length(o);

  7. while (np >0) do

  8. begin

  9. delete(Str,np,nl);

  10. insert(n,Str,np);

  11. np:=pos(o,Str);

  12. end;

  13. Result:=Str;

  14. end;
Created by GeSHI 1.0.7.20
ตัวอย่างตามรูปที่แนบมาครับ


มาอีกแล้ว
Thanks : () 118.173.240.6 (?)
thannawe
Hero Member
*****

Karma: -4
ออฟไลน์ ออฟไลน์

กระทู้: 2895



ดูรายละเอียด
« ตอบ #3 เมื่อ: กุมภาพันธ์ 17, 2009, 05:42:27 PM »

มาอีกแล้ว ท่านเทพในตำนาน
Thanks : () 125.27.174.253 (?)

เริ่มใช้ HOSxP มกราคม 2546 ปัจจุบันใช้ HOSxP V.3.56.4.22 วันที่ 22 เม.ย.56
Main Server  :  Server OS Linux CentOS 5.5  MySQL 5.1.51  Dell PowerEdge T710 Server
            SAS 300GBx3 GB(Raid 5) RAM 32 GB(1333MHz)
Old Server  :  Server OS Linux CentOS 5.1  MySQL 5.1.23  HP Proliant ML150G3 Server
            Intel Xeon 5130 Dual Core Processor 2 GHz HDD 147 GB RAM 4 GB
Notebook ส่วนตัว : COMPAQ PRESARIO CQ45 - 414TX
            Intel Core 2 Duo processor Penryn P8600(2.4GHz, 3MB L2, 1066MHz FSB)  HDD 320 GB 5400 RPM SATA
            Upgrade HDD640GB SATA(วันที่ 1 เม.ย.53)
            RAM DDR2 4 GB(800MHz) NVIDIA GeForce G 105M 512MB (ถอยวันที่ 13 เม.ย. 2552)
MacBook Pro : MacBook Pro Late2011
            Intel Core i7  quad-core 2.2GHz  HDD 500 GB 5400 RPM RAM DDR3 4GB(1333MHz)
            intel HD Geaphics 3000 512MB  AMD Radeon HD 6750M with 512MB GDDR5
            Mac OS X Lion 10.7.4(วันที่ 24 พ.ย.2554)
            RAM DDR3 16 GB(1333MHz)(UP RAM วันที่ 21 มิ.ย. 2555)

แนะนำตัวเอง คลิ๊ก ที่นี่ เลยครับ
การใช้ระบบขอบคุณ ThanK&Karma และการให้คะแนน บนเว็บ HOSxP คลิ๊ก ที่นี่ เลยครับ
ขอขอบคุณ ผู้ให้ความรู้ อ.ชัยพร(manoi) อ.สุชัย(suchai) อ.นาจ(naj) อ.อ๊อด(doraemon_saiyok)
                                อ.วุธ(SrwooD) อ.ตั๊ก(phichit_admin) อ.เกียง อ.ดุสิต อ.โก้(udomchok) อ.ขวด(Khuad)
doramon
บุคคลทั่วไป
« ตอบ #4 เมื่อ: กุมภาพันธ์ 17, 2009, 05:43:19 PM »

มาอีกแล้ว ท่านเทพในตำนาน

อ. นาจ ไม่ชอบ ตำนาน 

เพราะว่า  Huh??
Thanks : () 118.173.240.6 (?)
thannawe
Hero Member
*****

Karma: -4
ออฟไลน์ ออฟไลน์

กระทู้: 2895



ดูรายละเอียด
« ตอบ #5 เมื่อ: กุมภาพันธ์ 17, 2009, 05:51:14 PM »

อ.นาจ ไม่ชอบตำนาน  แสดงว่า ชอบตำแป๊ปเดียว!! Cheesy Grin Cheesy Grin Cheesy
Thanks : () 125.27.174.253 (?)

เริ่มใช้ HOSxP มกราคม 2546 ปัจจุบันใช้ HOSxP V.3.56.4.22 วันที่ 22 เม.ย.56
Main Server  :  Server OS Linux CentOS 5.5  MySQL 5.1.51  Dell PowerEdge T710 Server
            SAS 300GBx3 GB(Raid 5) RAM 32 GB(1333MHz)
Old Server  :  Server OS Linux CentOS 5.1  MySQL 5.1.23  HP Proliant ML150G3 Server
            Intel Xeon 5130 Dual Core Processor 2 GHz HDD 147 GB RAM 4 GB
Notebook ส่วนตัว : COMPAQ PRESARIO CQ45 - 414TX
            Intel Core 2 Duo processor Penryn P8600(2.4GHz, 3MB L2, 1066MHz FSB)  HDD 320 GB 5400 RPM SATA
            Upgrade HDD640GB SATA(วันที่ 1 เม.ย.53)
            RAM DDR2 4 GB(800MHz) NVIDIA GeForce G 105M 512MB (ถอยวันที่ 13 เม.ย. 2552)
MacBook Pro : MacBook Pro Late2011
            Intel Core i7  quad-core 2.2GHz  HDD 500 GB 5400 RPM RAM DDR3 4GB(1333MHz)
            intel HD Geaphics 3000 512MB  AMD Radeon HD 6750M with 512MB GDDR5
            Mac OS X Lion 10.7.4(วันที่ 24 พ.ย.2554)
            RAM DDR3 16 GB(1333MHz)(UP RAM วันที่ 21 มิ.ย. 2555)

แนะนำตัวเอง คลิ๊ก ที่นี่ เลยครับ
การใช้ระบบขอบคุณ ThanK&Karma และการให้คะแนน บนเว็บ HOSxP คลิ๊ก ที่นี่ เลยครับ
ขอขอบคุณ ผู้ให้ความรู้ อ.ชัยพร(manoi) อ.สุชัย(suchai) อ.นาจ(naj) อ.อ๊อด(doraemon_saiyok)
                                อ.วุธ(SrwooD) อ.ตั๊ก(phichit_admin) อ.เกียง อ.ดุสิต อ.โก้(udomchok) อ.ขวด(Khuad)
doramon
บุคคลทั่วไป
« ตอบ #6 เมื่อ: กุมภาพันธ์ 17, 2009, 05:52:10 PM »

ส่วนใหญ่  คนที่เป็นตำนาน จะไม่อยู่แล้ว   Cry
Thanks : () 118.173.240.6 (?)
หน้า: [1]   ขึ้นบน
  พิมพ์  
 
กระโดดไป:  

Powered by MySQL Powered by PHP Powered by SMF 1.1 RC2 | SMF © 2001-2006, Lewis Media
Joomla Bridge by JoomlaHacks.com


Valid XHTML 1.0! Valid CSS! Dilber MC Theme by HarzeM
หน้านี้ถูกสร้างขึ้นภายในเวลา 0.032 วินาที กับ 30 คำสั่ง
Copyright © 2006 Bangkok Medical Software Co.,Ltd.
SourceForge.net Logo web site monitoring tool