Class dùng cho Delimited Text String

Class dùng cho Delimited Text StringCó lẽ lập trình với Text String là công việc bạn thường làm nhất.. Dưới đây là một VB6 Class dùng cho delimeted text String, tức là những text strings

Class dùng cho Delimited Text String

Có lẽ lập trình với Text String là công việc bạn thường làm nhất Ðó là lý do tại sao hơn mười năm trước Microsoft Basic của Bill Gates rất thịnh hành vì nó có những

String Functions rất tiện dụng như Left, Right và Mid.

Dưới đây là một VB6 Class dùng cho delimeted text String, tức là những text strings giống như:

John Smith;30 King Street, Newtown,NSW, Australia;9748 3635;18/03/1956

gồm những phần gọi là tokens được ngăn cách bằng character ";" , gọi là delimiter.

Thật ra delimiter character có thể là bất cứ character nào, thường thường là những

characters ít khi dùng Trong các Comma Separated Values file, mỗi hàng Text là một String dùng Comma "," làm delimiter character Thí dụ như:

"26/3/2001","Peter King","Taxi fare",25.40

Các Tokens có thể là những data fields của một record, và chính mỗi Token cũng có thể là một delimited Text String dùng một delimiter character khác Thí dụ, một người

có thể có nhiều Telephone numbers và ta có thể ghép các số Telephone ấy lại với

nhau, dùng "~" làm delimiter character như sau:

Kim Lee;5 Red St, Ryde;9748 3635(W)~9736

2423(H)~0419409854(Mobile);7/05/1960

Trong program mẫu nầy bạn có một TextBox để chứa cái delimited TextString Form

có một array of TextBoxes tên Text1 với array index có giá trị từ 0 đến 3 TextString

ta dùng ở đây có 4 tokens Khi bạn click nút Process Text String, program sẽ ngắc

khúc Text String ở các delimiter characters rồi display chúng trong các TextBoxes Text1

Dưới đây là Listing của Sub CmdProcessTextString_Click:

Private Sub CmdProcessTextString_Click()

Dim DString As clsString ' Declare an Object of class clsString

Dim i

' Instantiate an Object called DString of class clsString

Set DString = New clsString

' Assign the text to DString

DString.Text = txtString

' Assign the Delimiter character ";" to DString

DString.Delimiter = ";"

' The text String has been automatically broken up into tokens

' Iterate through each of the 4 tokens

For i = 1 To DString.TokenCount

' Assign a Token to the appropriate Textbox

' Note that Text1 array index is in range 0 3

' so we use (i-1) for Text1 TextBoxes

Text1(i - 1) = DString.TokenAt(i)

Next

End Sub

Khi Delimited String đã được tokenised rồi, ta refer đến từng Token bằng cách viết

DString.TokenAt(i) mà i là index của Token trong Tokens Array Nếu dùng con số

làm index kiểu nầy nhiều lần ta rất dễ bị lộn Do đó có một cách thay thế những con

số 1,2,3 v.v bằng những hằng số dễ nhớ bằng cách định nghĩa một loại Enum

trong một Basic Module như sau:

' We deliberately name each constant with the prefix cds which stands for Const Delimited String

Public Enum FieldNames

cdsName = 1

cdsAddress = 2

cdsPhone = 3

cdsDOB = 4

End Enum

Sau đó ta có thể nói đến Token Phone bằng cách viết

DString.TokenAt(cdsPhone)

Trong khi viết code mỗi lần muốn đánh các Constant nầy ta đánh prefix cds trước rồi đánh Ctrl-Space để IDE popup những Constants được định nghĩa để ta chọn (dùng up/down arrow keys để select Constant rồi đánh Enter) như trong hình dưới đây:

Bạn có thể download source code của program mẫu nầy kể cả class clsString

Default delimiter character của Class clsString là "|" Mỗi lần bạn assign một Text string hay một delimiter cho clsString Object là nó tự động tokenise (ngắc khúc) text string thành một array of Tokens với array index values 1 TokenCount.

Ngoài ra, bạn còn có thể thay thế bất cứ Token nào bằng một Substring khác,

clsString Object sẽ tự động reconstruct Text String bên trong để bạn có thể lấy ra

modified Text String một cách dễ dàng Listings của các Sub ReplaceToken và ReconstructText của clsString như sau:

Public Sub ReplaceToken(TNum, NewToken)

' Replace a Token with a new substring

If (TNum > 0) And (TNum <= IMaxToken) Then

' Replace directly in the Token array

Tokens(TNum) = NewToken

' Rebuild the internal text string

ReconstructText

End If

End Sub

Private Sub ReconstructText()

' Reconstruct the internal string from the tokens and the delimiter

Dim i

strText = "" ' Initialise temporary string

For i = 1 To IMaxToken

' Concatenate this token to strText

strText = strText & Tokens(i)

' Append a delimiter character except for the last token

If i < IMaxToken Then strText = strText & strDelimiter

Next

End Sub

Dĩ nhiên khỏi phải nhắc bạn cũng nên biết rằng bên trong mỗi token tuyệt đối ta không thể dùng một character giống hệt như delimiter character, vì clsString sẽ lầm tưởng rằng character đó là một delimiter character hợp lệ Thí dụ nếu delimiter

character là ";", thì để thay thế mọi semicolon character trong một token ra blank

space ta có thể viết như sau:

TokenText = Replace (TokenText, ";", " ")