การ Generate number ร่วมกับตัวอักษร 001-ZZZ

Soutk

มีสมาชิกท่านใด มีวิธี Generate จำนวน ตามตัวอย่างด้านล่างมั้ยครับ
ขอคำแนะนำด้วยครับ


001-999 A01-A99 B01-B99 AB1-AB9 etc...............ZZZ

thongkorn

โจทย์การบ้าน ผมก็จะตอบให้ครับ เพราะมีพื้นฐานอยู่เรื่องหนึ่งที่สำคัญคือเรื่อง ASCII Code ... ลาก DataGridView เข้ามาวางบนฟอร์ม ปรับแค่ Anchor ให้ขยายได้ทุกทิศทาง ที่เหลือผมใช้โค้ดแบบ Run Time และปุ่มคำสั่งอีก 4 ตัว ...

1. Public Class frmGenerateCode
   
2. 
   
3.     Private Sub frmGenerateCode_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Call SetupDataGridView(Me.DataGridView1)
   
5.     End Sub
   
6. 
   
7.     ' / --------------------------------------------------------------------------
   
8.     ' / Organized DataGridView.
   
9.     Private Sub SetupDataGridView(ByRef DGV As DataGridView)
   
10.         With DGV
    
11.             .Columns.Clear()
    
12.             .Rows.Clear()
    
13.             .RowTemplate.Height = 26
    
14.             .AllowUserToOrderColumns = True
    
15.             .AllowUserToDeleteRows = False
    
16.             .AllowUserToAddRows = False
    
17.             .ReadOnly = True
    
18.             .MultiSelect = False
    
19.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
20.             .Font = New Font("Tahoma", 8)
    
21.             .AlternatingRowsDefaultCellStyle.BackColor = Color.OldLace
    
22.             .DefaultCellStyle.SelectionBackColor = Color.SeaGreen
    
23.             '.AlternatingRowsDefaultCellStyle.BackColor = Color.LightYellow
    
24.             '.DefaultCellStyle.SelectionBackColor = Color.LightBlue
    
25.             '/ Auto size column width of each main by sorting the field.
    
26.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
27.             .AutoResizeColumns()
    
28. 
    
29.             Dim Column1 As New DataGridViewTextBoxColumn
    
30.             With Column1
    
31.                 .DataPropertyName = "Code"
    
32.                 .Name = "Code"
    
33.                 .HeaderText = "Code"
    
34.                 .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
    
35.             End With
    
36.             .Columns.Add(Column1)
    
37.         End With
    
38.     End Sub
    
39. 
    
40.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
41.         Call SetupDataGridView(Me.DataGridView1)
    
42.         '001-999
    
43.         For i As Int32 = 1 To 999
    
44.             '// จัดรูปแบบโดยใช้ 3 หลัก "000" & 1 = "0001" แต่เราใช้ Right เพื่อให้นับจากทางขวามา 3 หลัก Right("0001", 3) = "001"
    
45.             Dim row = New String() {Microsoft.VisualBasic.Right("000" & i, 3)}
    
46.             DataGridView1.Rows.Add(row)
    
47.         Next
    
48.     End Sub
    
49. 
    
50.     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    
51.         Call SetupDataGridView(Me.DataGridView1)
    
52.         ' A01-A99 B01-B99 ... Z99
    
53.         For i As Byte = 65 To 90    '// ASCII Code A = 65, Z = 90
    
54.             For j As Byte = 1 To 99
    
55.                 '// Chr(ค่า Ascii Code) เช่น Chr(65) = A, Chr(90) = Z
    
56.                 Dim row = New String() {Chr(i) & Microsoft.VisualBasic.Right("00" & j, 2)}
    
57.                 DataGridView1.Rows.Add(row)
    
58.             Next
    
59.         Next
    
60.     End Sub
    
61. 
    
62.     Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    
63.         Call SetupDataGridView(Me.DataGridView1)
    
64.         ' AB1-AB9 ... AZ9
    
65.         For i As Byte = 65 To 90    '// ASCII Code A = 65, Z = 90
    
66.             For j As Byte = 66 To 90
    
67.                 For k As Byte = 1 To 9
    
68.                     Dim row = New String() {Chr(i) & Chr(j) & k}
    
69.                     DataGridView1.Rows.Add(row)
    
70.                 Next
    
71.             Next
    
72.         Next
    
73.     End Sub
    
74. 
    
75.     Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    
76.         Call SetupDataGridView(Me.DataGridView1)
    
77.         ' AAA-ZZZ
    
78.         For i As Byte = 65 To 90    '// ASCII Code A = 65, Z = 90
    
79.             For j As Byte = 65 To 90
    
80.                 For k As Byte = 65 To 90
    
81.                     Dim row = New String() {Chr(i) & Chr(j) & Chr(k)}
    
82.                     DataGridView1.Rows.Add(row)
    
83.                 Next
    
84.             Next
    
85.         Next
    
86.     End Sub
    
87. End Class

คัดลอกไปที่คลิปบอร์ด

Soutk

thongkorn ตอบกลับเมื่อ 2019-5-11 15:52
โจทย์การบ้าน ผมก็จะตอบให้ครับ เพราะมีพื้นฐานอยู่เรื ...

ขอบคุณอาจารย์มากๆเลยครับ