Thaiadmin

หาคำสั่ง ค้นหาคำใน VB

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ ๐olo๐ HoW ๐olo๐

  • *****
  • 452
  • 2
  • เพศ: ชาย
  • ...โอกาสเป็นของคนที่รู้จักไขว่คว้า...
หาคำสั่ง ค้นหาคำใน VB
« เมื่อ: 5 มีนาคม 2007, 15:50:52 »
ใน VB มีคำสั่งสำหรับค้นหาคำไหม คือ จะหาคำหรือ ตัวอักษรที่ต้องการว่ามีคำนั้นไหมจะใช้คำสั่งอะไร
ใน Textbox  มีคำว่า "หาคำสั่ง ค้นหาคำใน VB "  จะหาตัว "ป"
กลุ่มผู้ดูแลระบบแห่งประเทศไทย ขอระงับการใช้ลายเซ็นต์รูปภาพ
อนุญาตให้ใช้ได้เพียง ลายเซ็นต์ที่เป็นข้อความ
จึงประกาศมาเพื่อขอความร่วมมือ จากสมาชิกทุกๆ ท่าน
ในนาม กลุ่มผู้ดูแลระบบแห่งประเทศไทย

ออฟไลน์ SamaKitty VB

  • Global Develop Leader
  • *****
  • 2,949
  • 177
  • เพศ: ชาย
  • ไม่ใช่คนเก่ง ไม่ใช่คนดี ไม่ใช่คนพิเศษ ไม่ใช่..!!
    • Thaiadmin.org Power by : VBNeverdie.com
Re: หาคำสั่ง ค้นหาคำใน VB
« ตอบกลับ #1 เมื่อ: 5 มีนาคม 2007, 16:05:56 »
ฟังก์ชั่น ผมไม่รู้นะครับ
แต่ที่ผมทำ ผมทำแบบนี้


โค๊ด: [Select]
<?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

คอมมานด์ดิบๆ นะครับ ลองไปประยุกต์ใช้ดู
ถ้าจะเขียนแบบฟังก์ชั่น ไม่รู้ว่าทำไงอ่ะ
  :D
Hi... 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๐

  • *****
  • 452
  • 2
  • เพศ: ชาย
  • ...โอกาสเป็นของคนที่รู้จักไขว่คว้า...
Re: หาคำสั่ง ค้นหาคำใน VB
« ตอบกลับ #2 เมื่อ: 5 มีนาคม 2007, 20:24:46 »
ขอบคุณนะครับ

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

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

ออฟไลน์ insanity

  • *****
  • 1,789
  • 77
  • เพศ: ชาย
  • Life would be much easier if I had the source code
    • http://jullapol.blogspot.com
Re: หาคำสั่ง ค้นหาคำใน VB
« ตอบกลับ #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 »

ออฟไลน์ ๐olo๐ HoW ๐olo๐

  • *****
  • 452
  • 2
  • เพศ: ชาย
  • ...โอกาสเป็นของคนที่รู้จักไขว่คว้า...
Re: หาคำสั่ง ค้นหาคำใน VB
« ตอบกลับ #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 หมายถึงอะไรครับ งง
กลุ่มผู้ดูแลระบบแห่งประเทศไทย ขอระงับการใช้ลายเซ็นต์รูปภาพ
อนุญาตให้ใช้ได้เพียง ลายเซ็นต์ที่เป็นข้อความ
จึงประกาศมาเพื่อขอความร่วมมือ จากสมาชิกทุกๆ ท่าน
ในนาม กลุ่มผู้ดูแลระบบแห่งประเทศไทย

ออฟไลน์ SamaKitty VB

  • Global Develop Leader
  • *****
  • 2,949
  • 177
  • เพศ: ชาย
  • ไม่ใช่คนเก่ง ไม่ใช่คนดี ไม่ใช่คนพิเศษ ไม่ใช่..!!
    • Thaiadmin.org Power by : VBNeverdie.com
Re: หาคำสั่ง ค้นหาคำใน VB
« ตอบกลับ #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.
Hi... Welcome to Thaiadmin.org
Power by VBNeverDie.Com

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

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

ออฟไลน์ Lord Buff

  • ***
  • 46
  • 3
  • เพศ: ชาย
Re: หาคำสั่ง ค้นหาคำใน VB
« ตอบกลับ #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 คับ
<b>กลุ่มผู้ดูแลระบบแห่งประเทศไทย ขอระงับการใช้ลายเซ็นต์รูปภาพ
อนุญาตให้ใช้ได้เพียง ลายเซ็นต์ที่เป็นข้อความ
จึงประกาศมาเพื่อขอความร่วมมือ จากสมาชิกทุกๆ ท่าน
ในนาม กลุ่มผู้ดูแลระบบแห่งประเทศไทย</b>