Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > .NET Framework > Forum > (vb.net) ผมต้องการตัดข้อความจาก textbox ไห้เหลือแค่ข้อความที่ต้องการเท่านั้นคับ



 

(vb.net) ผมต้องการตัดข้อความจาก textbox ไห้เหลือแค่ข้อความที่ต้องการเท่านั้นคับ

 



Topic : 111731



โพสกระทู้ ( 18 )
บทความ ( 0 )



สถานะออฟไลน์




ตามหัวข้อเลยคับ
Code (VB.NET)
TextBox1.Text = ListBox1.Text
        Dim str As String
        Dim strArr() As String
        Dim count As Integer
        Str = TextBox1.Text
        strArr = str.Split("'")
        For count = TextBox4.Text To strArr.Length - TextBox5.Text
'TextBox4.Text= 7  TextBox5.Text=8
            If strArr(count).Contains("CAAA") Then

                ListBox2.Items.Add(strArr(count))

                Dim swriter As StreamWriter
                swriter = File.AppendText(TextBox6.Text)
                swriter.WriteLine(strArr(count))
                swriter.Close()

            Else
                Try

                    ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                Catch ex As Exception

                    Timer1.Stop()
                    Button6.Enabled = False
                    Button5.Enabled = True

                End Try

            End If
        Next

ส่วนนี่คือตัวอย่างข้อความคับ
Code
(5, '100005360737565', 'Som Ctv', 'CAAAACZAVC6ygBAHxGEIZAq9r5KlVhOjftjkd2a2kOH6PvugOi6GUG9V1MCvLMo3T5EeKbfYkMu6x3ZCfUU9ryp3gb2bTpMajRHk0ZCt2JTNMaTZACjFpsLgStyHnhODSZCtGw6dKC3PsWuyT4ZB3T896yhLtVjlmHaipVt5MdniWvZA0dY97papWrguf7GYlhFuKDlApRwDaydxwatGzw7xO'),

ผมต้องการจะตัดไห้เหลือแค่
Code
CAAAACZAVC6ygBAHxGEIZAq9r5KlVhOjftjkd2a2kOH6PvugOi6GUG9V1MCvLMo3T5EeKbfYkMu6x3ZCfUU9ryp3gb2bTpMajRHk0ZCt2JTNMaTZACjFpsLgStyHnhODSZCtGw6dKC3PsWuyT4ZB3T896yhLtVjlmHaipVt5MdniWvZA0dY97papWrguf7GYlhFuKDlApRwDaydxwatGzw7xO


ผมลองแล้วคือบางทีก้อตัดได้ บางทีก้อตัดไม่ได้เลยอยากไห้ดูโค้ดไห้หน่อยคับว่าต้องแก้ตรงไหนเพราะข้อความแต่ละชุดจำนวนเครื่องหมาย ' ไม่เท่ากัน



Tag : .NET, VB.NET









ประวัติการแก้ไข
2014-10-05 00:49:30
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2014-10-05 00:46:22 By : rosemanry1 View : 4256 Reply : 5
 

 

No. 1



โพสกระทู้ ( 535 )
บทความ ( 0 )



สถานะออฟไลน์


strArr(5)






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-10-05 01:21:51 By : gaowteen
 


 

No. 2



โพสกระทู้ ( 93 )
บทความ ( 0 )



สถานะออฟไลน์


Code (VB.NET)
strArr = str.Split("'")


ลองแก้เป็น

Code (VB.NET)
strArr = str.Split(",")


ข้อความที่คุณต้องการจะอยู่ใน strArr[3]

อ้อขอโทษทีครับ ผมอ่านบรรทัดสุดท้ายไม่หมด
ถ้าsplit ด้วย " ' " ก็จะอยู่ในตำแหน่งเดียวกับ ที่คุณ BIrD บอกครับ

strArr(5)


ประวัติการแก้ไข
2014-10-06 08:47:47
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-10-06 08:40:19 By : poomberry
 

 

No. 3



โพสกระทู้ ( 697 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

ทำไมไม่ Split ตาม , ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-10-06 10:43:10 By : 01000010
 


 

No. 4



โพสกระทู้ ( 296 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

ต้องการแบบนี้ ถูกปะ
Code (VB.NET)
        Dim StrArr(5) As String
        Dim Str As String = "(5, '100005360737565', 'Som Ctv', 'CAAAACZAVC6ygBAHxGEIZAq9r5KlVhOjftjkd2a2kOH6PvugOi6GUG9V1MCvLMo3T5EeKbfYkMu6x3ZCfUU9ryp3gb2bTpMajRHk0ZCt2JTNMaTZACjFpsLgStyHnhODSZCtGw6dKC3PsWuyT4ZB3T896yhLtVjlmHaipVt5MdniWvZA0dY97papWrguf7GYlhFuKDlApRwDaydxwatGzw7xO'),"
        StrArr = Str.Split(",")
        StrArr(3) = StrArr(3).Replace("'", "").Replace("(", "").Replace(")", "")
        MsgBox(StrArr(3))



ำำำ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-10-06 18:41:31 By : zarooman
 


 

No. 5



โพสกระทู้ ( 30 )
บทความ ( 0 )



สถานะออฟไลน์


ทำโปรแกรมตัดโทเคน หรอ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-01 09:03:11 By : DevilH
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : (vb.net) ผมต้องการตัดข้อความจาก textbox ไห้เหลือแค่ข้อความที่ต้องการเท่านั้นคับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่