กลุ่มผู้ดูแลระบบแห่งประเทศไทย กลุ่มผู้ดูแลระบบแห่งประเทศไทย
23 ตุลาคม 2014, 12:09:03 *
ยินดีต้อนรับคุณ, บุคคลทั่วไป กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน
ส่งอีเมล์ยืนยันการใช้งาน?

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

Thaiadmin on Social NetworkThaiadmin on TwitterThaiadmin on Facebook Group

ข่าว:
  หน้าแรก   เวบบอร์ด   ค้นหา ช่วยเหลือ เจ้าหน้าที่ เข้าสู่ระบบ ลืมรหัสผ่าน? คำเแนะนำ สมัครสมาชิก Register via Facebook Register via Google+  
+ กลุ่มผู้ดูแลระบบแห่งประเทศไทย » Developer Zone » App Development » หัวข้อ:
|-+ หาคำสั่ง ค้นหาคำใน VB


หน้า: [1]   ลงล่าง
  เพิ่มบุ้คมาร์ค  |  พิมพ์  
ผู้เขียน หัวข้อ: หาคำสั่ง ค้นหาคำใน VB  (อ่าน 4854 ครั้ง)
0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้
๐olo๐ HoW ๐olo๐
Intelligent Layer 5
*****


จิตพิสัย: 2
ออฟไลน์ ออฟไลน์

เพศ: ชาย
กระทู้: 452

สมาชิกลำดับที่ 16583

Posting Frequency


...โอกาสเป็นของคนที่รู้จักไขว่คว้า...









 ระดับถัดไป:
 18.33% ( 22 / 120 )

« เมื่อ: 5 มีนาคม 2007, 15:50:52 »

ใน VB มีคำสั่งสำหรับค้นหาคำไหม คือ จะหาคำหรือ ตัวอักษรที่ต้องการว่ามีคำนั้นไหมจะใช้คำสั่งอะไร
ใน Textbox  มีคำว่า "หาคำสั่ง ค้นหาคำใน VB "  จะหาตัว "ป"

Share topic : บันทึกการเข้า

กลุ่มผู้ดูแลระบบแห่งประเทศไทย ขอระงับการใช้ลายเซ็นต์รูปภาพ
อนุญาตให้ใช้ได้เพียง ลายเซ็นต์ที่เป็นข้อความ
จึงประกาศมาเพื่อขอความร่วมมือ จากสมาชิกทุกๆ ท่าน
ในนาม กลุ่มผู้ดูแลระบบแห่งประเทศไทย
SamaKitty VB
Global Develop Leader
Thaiadmin Management
*****

 Thaiadmin Administrator
 Thaiadmin Cooperate
 Thaiadmin Developer
 Thaiadmin Management
 Thaiadmin Professional


จิตพิสัย: 177
ออฟไลน์ ออฟไลน์

เพศ: ชาย
กระทู้: 2,943

สมาชิกลำดับที่ 1403

Posting Frequency


ไม่ใช่คนเก่ง ไม่ใช่คนดี ไม่ใช่คนพิเศษ ไม่ใช่..!!


เว็บไซต์






สมบูรณ์ 100%

« ตอบ #1 เมื่อ: 5 มีนาคม 2007, 16:05:56 »

ฟังก์ชั่น ผมไม่รู้นะครับ
แต่ที่ผมทำ ผมทำแบบนี้


โค๊ด: Select | Copy
<?php  /// Don't care this line
Dim i As Long
Dim k 
as Long

0
k
0
For  i  1 to Textbox.Lenght   
         
If Mid(Textbox.Text,i,1) = "Find Text"  Then
                k 
i    
         End 
if
Next i

Msgbox 
"Found at " "Position

คอมมานด์ดิบๆ นะครับ ลองไปประยุกต์ใช้ดู
ถ้าจะเขียนแบบฟังก์ชั่น ไม่รู้ว่าทำไงอ่ะ
  Cheesy

I Like It !!
Share topic : บันทึกการเข้า

Hi... Thaiadmin Guest Welcome to Thaiadmin.org
Power by VBNeverDie.Com

SMF Mod & Template Modify, Hosting, Chat Room, Joomla Web, Flash Header, Images Decorate

ขออภัย ถ้าไม่ตอบ PM ครับ : กรุณา ถามตอบในบอร์ด
๐olo๐ HoW ๐olo๐
Intelligent Layer 5
*****


จิตพิสัย: 2
ออฟไลน์ ออฟไลน์

เพศ: ชาย
กระทู้: 452

สมาชิกลำดับที่ 16583

Posting Frequency


...โอกาสเป็นของคนที่รู้จักไขว่คว้า...









 ระดับถัดไป:
 18.33% ( 22 / 120 )

« ตอบ #2 เมื่อ: 5 มีนาคม 2007, 20:24:46 »

ขอบคุณนะครับ

แต่พอดีผมอยากได้ที่เป็น Fumction อะครับ ที่คุณใช้เหมือนที่ผมใช้เลย อืม มีพวกๆๆๆๆ  Smiley

แต่ตอนนี้ผมกำลังทำ เครื่องคิดเลข แล้วเกิดปัญหาที่ว่า พอกด ลบ (Back) จากโปรแกรม พอลบหมด แล้วใส่เข้าไปใหม่ แล้วค่ามันหาย ไม่รุจะแก้ไง กำลังมึน

Share topic : บันทึกการเข้า

กลุ่มผู้ดูแลระบบแห่งประเทศไทย ขอระงับการใช้ลายเซ็นต์รูปภาพ
อนุญาตให้ใช้ได้เพียง ลายเซ็นต์ที่เป็นข้อความ
จึงประกาศมาเพื่อขอความร่วมมือ จากสมาชิกทุกๆ ท่าน
ในนาม กลุ่มผู้ดูแลระบบแห่งประเทศไทย
insanity
Thaiadmin Global Staff
*****

 Thaiadmin Professional


จิตพิสัย: 77
ออฟไลน์ ออฟไลน์

เพศ: ชาย
กระทู้: 1,766

สมาชิกลำดับที่ 6860

Posting Frequency


Life would be much easier if I had the source code


เว็บไซต์






สมบูรณ์ 100%

« ตอบ #3 เมื่อ: 5 มีนาคม 2007, 21:55:22 »

อืมม ใช่แบบ  function ที่ชื่อ instr รึเปล่าครับ

InStr([start,]string1,string2[,compare])

txt="This is a beautiful day!"
pos=InStr(4, txt, "is", vbTextCompare)

จะได้ pos = 4

จะได้ pos=6

ประมาณนี้แหละ

« แก้ไขครั้งสุดท้าย: 6 มีนาคม 2007, 22:37:20 โดย insanity » Share topic : บันทึกการเข้า
๐olo๐ HoW ๐olo๐
Intelligent Layer 5
*****


จิตพิสัย: 2
ออฟไลน์ ออฟไลน์

เพศ: ชาย
กระทู้: 452

สมาชิกลำดับที่ 16583

Posting Frequency


...โอกาสเป็นของคนที่รู้จักไขว่คว้า...









 ระดับถัดไป:
 18.33% ( 22 / 120 )

« ตอบ #4 เมื่อ: 6 มีนาคม 2007, 13:25:47 »

อืมม ใช่แบบ  function ที่ชื่อ instr รึเปล่าครับ

InStr([start,]string1,string2[,compare])

txt="This is a beautiful day!"
pos=InStr(4, txt, "is", vbTextCompare)

จะได้ pos = 4

ประมาณนี้แหละ


งงกะคำสั่งครับ pos=InStr(4, txt, "is", vbTextCompare)   4 หมายถึงอะไรครับ งง

Share topic : บันทึกการเข้า

กลุ่มผู้ดูแลระบบแห่งประเทศไทย ขอระงับการใช้ลายเซ็นต์รูปภาพ
อนุญาตให้ใช้ได้เพียง ลายเซ็นต์ที่เป็นข้อความ
จึงประกาศมาเพื่อขอความร่วมมือ จากสมาชิกทุกๆ ท่าน
ในนาม กลุ่มผู้ดูแลระบบแห่งประเทศไทย
SamaKitty VB
Global Develop Leader
Thaiadmin Management
*****

 Thaiadmin Administrator
 Thaiadmin Cooperate
 Thaiadmin Developer
 Thaiadmin Management
 Thaiadmin Professional


จิตพิสัย: 177
ออฟไลน์ ออฟไลน์

เพศ: ชาย
กระทู้: 2943

สมาชิกลำดับที่ 1403

Posting Frequency


ไม่ใช่คนเก่ง ไม่ใช่คนดี ไม่ใช่คนพิเศษ ไม่ใช่..!!


เว็บไซต์






สมบูรณ์ 100%

« ตอบ #5 เมื่อ: 6 มีนาคม 2007, 15:33:30 »

InStr Function
     

Returns a Variant (Long) specifying the position of the first occurrence of one string within another.

Syntax

InStr([start, ]string1, string2[, compare])

The InStr function syntax has these arguments:

Part Description
start Optional. Numeric expression that sets the starting position for each search. If omitted, search begins at the first character position. If start contains Null, an error occurs. The start argument is required if compare is specified.
string1 Required. String expression being searched.
string2 Required. String expression sought.
compare Optional. Specifies the type of string comparison. If compare is Null, an error occurs. If compare is omitted, the Option Compare setting determines the type of comparison. Specify a valid LCID (LocaleID) to use locale-specific rules in the comparison.


Settings

The compare argument settings are:

Constant Value Description
vbUseCompareOption -1 Performs a comparison using the setting of the Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based on information in your database.


Return Values

If InStr returns
string1 is zero-length 0
string1 is Null Null
string2 is zero-length start
string2 is Null Null
string2 is not found 0
string2 is found within string1  Position at which match is found
start > string2 0


Remarks

The InStrB function is used with byte data contained in a string. Instead of returning the character position of the first occurrence of one string within another, InStrB returns the byte position.

I Like It !!
Share topic : บันทึกการเข้า

Hi... Thaiadmin Guest Welcome to Thaiadmin.org
Power by VBNeverDie.Com

SMF Mod & Template Modify, Hosting, Chat Room, Joomla Web, Flash Header, Images Decorate

ขออภัย ถ้าไม่ตอบ PM ครับ : กรุณา ถามตอบในบอร์ด
Lord Buff
Gold Fellowship
***


จิตพิสัย: 3
ออฟไลน์ ออฟไลน์

เพศ: ชาย
กระทู้: 46

สมาชิกลำดับที่ 19376

Posting Frequency










 ระดับถัดไป:
 20% ( 1 / 5 )

« ตอบ #6 เมื่อ: 13 มีนาคม 2007, 20:51:13 »


งงกะคำสั่งครับ pos=InStr(4, txt, "is", vbTextCompare)   4 หมายถึงอะไรครับ งง

InStr([start, ]string1, string2[, compare])
start = ตำแหน่งที่เริ่มต้นค้นหา ถ้าไม่ระบุจะถือว่าเป็นตำแหน่งแรกสุด
string1 = ข้อความที่ต้องการค้น
string2 = คำที่ต้องการค้นหา
compare หมายถึงค่าคงที่ ที่ใช้ระบุประเภทของการเปรียบเทียบ
   0 : vbBinaryCompare เป็นการเปรียบเทียบแบบ Binary
   1 : vbTextCompare เป็นการเปรียบเทียบแบบ Text
   2 : vbDatabaseCompare เป็นการเปรียบเทียบข้อมูลที่จัดเก็บไว้ในฐานข้อมูล
ถ้าไม่กำหนดจะถือให้เป็น 1 คับ


Share topic : บันทึกการเข้า

<b>กลุ่มผู้ดูแลระบบแห่งประเทศไทย ขอระงับการใช้ลายเซ็นต์รูปภาพ
อนุญาตให้ใช้ได้เพียง ลายเซ็นต์ที่เป็นข้อความ
จึงประกาศมาเพื่อขอความร่วมมือ จากสมาชิกทุกๆ ท่าน
ในนาม กลุ่มผู้ดูแลระบบแห่งประเทศไทย</b>
กลุ่มผู้ดูแลระบบแห่งประเทศไทย
   


โปรดอ่านกฎกติกาก่อนแสดงความคิดเห็น


1. โปรดงดเว้น การใช้คำหยาบคาย ส่อเสียด ดูหมิ่น กล่าวหาให้ร้าย สร้างความแตกแยก หรือกระทบถึงสถาบันอันเป็นที่เคารพ
2. ข้อความหรือรูปภาพที่ปรากฏในกระทู้ที่ท่านเห็นอยู่นี้ เกิดจากการตั้งกระทู้และถูกส่งขึ้นเวบบอร์ดโดยอัตโนมัติจากบุคคลทั่วไปและสมาชิก
ซึ่งทีมงานกลุ่มผู้ดูแลระบบแห่งประเทศไทย มิได้มีส่วนร่วมรู้เห็น หรือพิสูจน์ข้อเท็จจริงใดๆ ทั้งสิ้น
และไม่สามารถนำไปอ้างอิงทางกฎหมายได้
3. หากท่านพบเห็นข้อความ หรือรูปภาพในกระทู้ที่ไม่เหมาะสม กรุณาแจ้งทีมงานทราบ เพื่อดำเนินการต่อไป
4. ทีมงานกลุ่มผู้ดูแลระบบแห่งประเทศไทย ขอสงวนสิทธิ์ในการลบความคิดเห็น โดยไม่ต้องชี้แจงเหตุผลใดๆ ต่อเจ้าของความคิดเห็นนั้น

 บันทึกการเข้า
หน้า: [1]   ขึ้นบน
  เพิ่มบุ้คมาร์ค  |  พิมพ์  
+ กลุ่มผู้ดูแลระบบแห่งประเทศไทย » Developer Zone » App Development » หัวข้อ:
|-+ หาคำสั่ง ค้นหาคำใน VB


 
กระโดดไป:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.19 Thaiadmin Edition | Sitemap| SMF © 2013, Simple Machines
Thai Language by ThaiSMF. Modifications by Thailand System Administrator Group.
Valid XHTML 1.0! Valid CSS!

หน้านี้ถูกสร้างขึ้นภายในเวลา 0.101 วินาที กับ 41 คำสั่ง

Google visited last this page 21 ตุลาคม 2014, 14:14:05