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,027

HOME > .NET Framework > Forum > VB.NET ต้องการหาค่าที่อยู่ในแต่ละ List ว่าอยู่ที่ List ไหน ตำแหน่งไหน



 

VB.NET ต้องการหาค่าที่อยู่ในแต่ละ List ว่าอยู่ที่ List ไหน ตำแหน่งไหน

 



Topic : 136798



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



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




Code (VB.NET)
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10,
        a11, a12, a13, a14, a15, a16, a17, a18, a19, a20,
        a21, a22, a23, a24, a25, a26, a27, a28, a29, a30,
        a31, a32, a33, a34, a35, a36, a37, a38, a39, a40,
        a41, a42, a43, a44, a45, a46, a47, a48, a49, a50,
        a51, a52, a53, a54, a55, a56, a57, a58, a59, a60,
        a61, a62, a63, a64, a65, a66, a67, a68, a69, a70,
        a71, a72, a73, a74, a75 As New List(Of String)

นำค่าจาก textbox1.text ไปค้นหาที่อยู่ใน a1-a75 ครับ
ว่าคาจาก textbox1 ไปอยู่ตรงที่ของ a1-a75


ขอบคุณที่แนะนำครับ



Tag : .NET, Win (Windows App)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2022-08-31 13:59:00 By : meposonsuza View : 522 Reply : 5
 

 

No. 1



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



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


ตอนนี้ทำได้เพียง

Code (VB.NET)
If a1.Contains(textbox1.Text) Then
            TextBox2.Text = "true"
        Else
            TextBox2.Text = "false"
        End If


ซึ่งมันตรวจสอบได้ว่ามี หรือ ไม่มี
แต่มันจะหาตำแหน่งยังไงครับ
#มือใหม่หัดเขียน






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2022-08-31 14:16:47 By : meposonsuza
 


 
ตอบความคิดเห็นที่ : 1 เขียนโดย : meposonsuza เมื่อวันที่ 2022-08-31 14:16:47
รายละเอียดของการตอบ ::
ต้องการหา index ของ string ใน List หรือครับ
ยกตัวอย่างสมาชิกใน List และ string ที่ต้องการค้นพร้อมผลลัพธ์ที่ต้องการด้วยครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2022-08-31 14:25:10 By : 009
 

 

No. 3



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



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


ตอบความคิดเห็นที่ : 2 เขียนโดย : 009 เมื่อวันที่ 2022-08-31 14:25:10
รายละเอียดของการตอบ ::

ค่าใน textbox จะเป็นแบบนี้ครับ >> EDN7386238
ค่าใน a1-a75 ก็จะเป็นแบบ >> EDN7386238, EDN7386240, EDN7386316 แต่จะเป็นเลขที่ไม่ซ้ำกันเลย

ขอยกตัวอย่าง สิ่งที่ต้องการหาคือ
ถ้าเกิดค่าใน textbox ไปตรงกับค่าๆนึงใน a20 ตำแหน่งที่4
อยากจะให้ผลลัพธ์แสดงออกมาในรูปแบบ string ว่า a20 4
อะไรประมาณนี้ครับ


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2022-08-31 14:34:48 By : meposonsuza
 


 

No. 4



โพสกระทู้ ( 4,436 )
บทความ ( 23 )



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

ผมว่าถ้าจะหาหมด ลองเอา

a1, a2, a3, a4, a5, a6, a7, a8, a9, a10,
a11, a12, a13, a14, a15, a16, a17, a18, a19, a20,
a21, a22, a23, a24, a25, a26, a27, a28, a29, a30,
a31, a32, a33, a34, a35, a36, a37, a38, a39, a40,
a41, a42, a43, a44, a45, a46, a47, a48, a49, a50,
a51, a52, a53, a54, a55, a56, a57, a58, a59, a60,
a61, a62, a63, a64, a65, a66, a67, a68, a69, a70,
a71, a72, a73, a74, a75

ไปยัดลง list ซะก่อนดีกว่า
จากนั้น ก็ for loop เพื่อ เช็ค Contains อีกที
เราจะได้ว่า ข้อความของเรา มันอยู่ใน Index ไหน ใน a1-a75 ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2022-08-31 15:23:21 By : lamaka.tor
 


 
ตามด้านบน .NET ไม่ support "dynamic variable name" ลองดูตัวอย่างนี้

C# version
using System;
using System.Collections.Generic;
					
public class Program
{
	public static void Main()
	{
		List<string> a1 = new List<string> {"123", "231", "312", "321"};
		List<string> a2 = new List<string> {"456", "564", "645", "654"};
		List<string> a3 = new List<string> {"789", "897", "978", "987"};
		Dictionary<string, List<string>> data = new Dictionary<string, List<string>> {
			{"a1", a1},
			{"a2", a2},
			{"a3", a3}
		};
		
		string test = "312";
		string res = string.Empty;
		
		foreach(KeyValuePair<string, List<string>> item in data) {
			int t = item.Value.IndexOf(test);
			if (t != -1) {
				res = item.Key + " " + t.ToString();
				break;
			}
		}
		
		Console.WriteLine(res);
	}
}


VB.NET version
Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Sub Main()
        Dim a1 As List(Of String) = New List(Of String) From { "123", "231", "312", "321"}
        Dim a2 As List(Of String) = New List(Of String) From { "456", "564", "645", "654"}
        Dim a3 As List(Of String) = New List(Of String) From { "789", "897", "978", "987"}
        Dim data As Dictionary(Of String, List(Of String)) = New Dictionary(Of String, List(Of String)) From {
            {"a1", a1},
            {"a2", a2},
            {"a3", a3}
        }
        Dim test As String = "312"
        Dim res As String = String.Empty

        For Each item As KeyValuePair(Of String, List(Of String)) In data
            Dim t As Integer = item.Value.IndexOf(test)

            If t <> -1 Then
                res = item.Key & " " & t.ToString()
                Exit For
            End If
        Next

        Console.WriteLine(res)
    End Sub
End Class


ตรงเงื่อนไขถ้าคิดว่าหน้าตาอัปลักษณ์จะใช้ List.FindIndex Method แทนก็ได้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2022-08-31 15:32:33 By : 009
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : VB.NET ต้องการหาค่าที่อยู่ในแต่ละ List ว่าอยู่ที่ List ไหน ตำแหน่งไหน
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 04
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 อัตราราคา คลิกที่นี่