Imports System
Imports SystemCollectionsGeneric
Imports SystemText
Public Class CodeClass Code
Inherits BarcodeVariables
Implements IBarcodeIBarcode
Private C_Code As New SystemCollectionsHashtable()
Public Sub New()Sub New(ByVal input As String)
Raw_Data = input
End Sub
Private Function Encode_Code()Function Encode_Code() As String
Meinit_Code()
Dim result As String = C_Code(*c)ToString()
result +=
For Each c As Char In Raw_Data
result += C_Code(c)ToString()
result +=
Next
result += C_Code(*c)ToString()
MeC_CodeClear()
Return result
End Function
Private Sub init_Code()Sub init_Code()
C_CodeClear()
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd(Ac )
C_CodeAdd(Bc )
C_CodeAdd(Cc )
C_CodeAdd(Dc )
C_CodeAdd(Ec )
C_CodeAdd(Fc )
C_CodeAdd(Gc )
C_CodeAdd(Hc )
C_CodeAdd(Ic )
C_CodeAdd(Jc )
C_CodeAdd(
Kc )
C_CodeAdd(Lc )
C_CodeAdd(Mc )
C_CodeAdd(Nc )
C_CodeAdd(Oc )
C_CodeAdd(Pc )
C_CodeAdd(Qc )
C_CodeAdd(Rc )
C_CodeAdd(Sc )
C_CodeAdd(Tc )
C_CodeAdd(Uc )
C_CodeAdd(Vc )
C_CodeAdd(Wc )
C_CodeAdd(Xc )
C_CodeAdd(Yc )
C_CodeAdd(Zc )
C_CodeAdd(c )
C_CodeAdd(c )
C_CodeAdd( c )
C_CodeAdd($c )
C_CodeAdd(/c )
C_CodeAdd(+c )
C_CodeAdd(%c )
C_CodeAdd(*c )
End Sub
Public ReadOnly Property Encoded_Value()Property Encoded_Value() As String Implements IBarcodeIBarcodeEncoded_Value
Get
Return Encode_Code()
End Get
End Property
End Class
最近在考虑VBNET怎么处理大容量的数据比如万条数据要怎么很快的读出来或者是查找在VBNET里还是满难实现有这方面的高手们帮帮忙!~谢谢了!
