دليل استخدام إجراءات VBAppAss.dll للمبرمجين بلغة Visual Basic 6.0

الدالة DNSUIDStrToDNSUIDArr

تحويل نص DNSUID إلى مصفوفة DNSUID.

الصيغة:

Function DNSUIDStrToDNSUIDArr(UIDStr As String) As Variant

الصنف:
TString.

الوسائط (Parameters):

الشرح:
هذه واحدة من دوال تحويل أرقام DNSUID. رقم DNSUID هو سلسلة نصية (String) مكونة من 20 رقماً (مثلاً 62020050110194124031)، و يتم توليد هذه الأرقام بحيث لا يمكن أن يتكرر الرقم مرة أخرى. بالإضافة إلى كونه سلسلة نصية، يمكنك التعامل مع الرقم على أنه سجل يتكون من 10 حقول من النوع Byte، و كذلك يمكنك التعامل معه على أنه مصفوفة ذات 10 عناصر من النوع Byte (كل رقمين متتاليين في السلسلة النصية يمثلان بايتاً واحدة)، مع العلم أن تحويل النص إلى سجل أو مصفوفة يبدأ من اليسار إلى اليمين. حيث تقوم هذه الدالة بتحويل رقم DNSUID من نص إلى مصفوفة من 10 عناصر من النوع Byte. المصفوفة المعادة تكون في شكل Variant.
طول نص البارامتر UIDStr يجب أن يكون 20 خانة مكونة من الأرقام فقط. إذا لم يكن طوله 20 خانة، أو إذا تسببت عملية التحويل إلى بايتات في حدوث خطأ، فإن جميع عناصر المصفوفة تضبط على الصفر.
يمكنك توليد أرقام DNSUID باستعمال الدالة GetDNSUIDStr أو إحدى أخواتها، و يمكنك استعمال هذه الأرقام كمعرفات فريدة لا تتكرر.

الاستخدام:

Dim ObjString As New TString
Dim UIDArray As Variant
Dim UIDString As String
Dim Index As Long

UIDString = ObjString.GetDNSUIDStr()
UIDArray = ObjString.DNSUIDStrToDNSUIDArr(UIDString)
For Index = LBound(UIDArray) To UBound(UIDArray)
  ListBox1.AddItem UIDArray(Index)
Next Index

انظر أيضاً:
الدالة DNSUIDRecToDNSUIDStr
الدالة DNSUIDArrToDNSUIDStr
الدالة DNSUIDStrToDNSUIDRec
الدالة GetDNSUIDArr
الدالة GetDNSUIDRec
الدالة GetDNSUIDStr

بداية الصفحة