用法 RndString(xx) xx為隨機(jī)數(shù)字長度
公司主營業(yè)務(wù):成都做網(wǎng)站、成都網(wǎng)站設(shè)計、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團(tuán)隊有機(jī)會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出豐縣免費做網(wǎng)站回饋大家。
比如12位長度的隨機(jī)字符串 則為 RndString(12)
字符串包含數(shù)字和大小寫字母,函數(shù)如下:
Function RndString(ByVal l As Integer) As String
Randomize()
Dim R, i As Integer
Dim S As Char
Dim returnStr As String
returnStr = ""
'a-z 的ASCII碼是:97-122
'A-Z 的ASCII碼是:65-90
'0-9 的ASCII碼是:48-57
For i = 1 To l
R = Int(Rnd() * 62) '隨機(jī)生成的字符有大小寫字母和數(shù)字,共有26個
If R 10 Then '如果小于10,則是數(shù)字 數(shù)字的ASCII是48-57 對應(yīng) 隨機(jī)數(shù)字 0-9 所以要將隨機(jī)數(shù)字加48
S = Chr(R + 48) 'Chr 是將把數(shù)字按Ascii碼轉(zhuǎn)換為對應(yīng)的字符
ElseIf R 36 Then '如果小于36,則是大寫字母 大寫字母的ASCII是65-90 對應(yīng) 隨機(jī)數(shù)字10-35 所以要將隨機(jī)數(shù)字加55
S = Chr(R + 55)
Else '如果大于36,則是小寫字母 小寫字母的ASCII是97-122 對應(yīng) 隨機(jī)數(shù)字36-62 所以要將隨機(jī)數(shù)字加61
S = Chr(R + 61)
End If
returnStr = returnStr + S
Next
RndString = returnStr
End Function
摘自幫助文檔,我也不是很理解
估計只有在Visual Basic 文件輸入和輸出才有用
示例
Visual Basic 復(fù)制代碼
Structure Person
Public ID As Integer
Public MonthlySalary As Decimal
Public LastReviewDate As Long
VBFixedString(15) Public FirstName As String
VBFixedString(15) Public LastName As String
VBFixedString(15) Public Title As String
VBFixedString(150) Public ReviewComments As String
End Structure
注意
VBFixedStringAttribute 是信息性的屬性,不能用于將可變長度字符串轉(zhuǎn)換為固定長度字符串。此屬性的作用是修改那些識別 VBFixedStringAttribute 的方法或 API 調(diào)用(如 Len 和 FilePut 函數(shù))使用結(jié)構(gòu)中的字符串以及非局部變量的方式。請記住,此屬性不會更改字符串本身的實際長度。
備注
默認(rèn)情況下,Visual Basic 字符串為可變長度的字符串。在使用 Visual Basic 文件輸入和輸出函數(shù)(如需要固定長度字符串的 FileGet 和 FilePut)時,該屬性非常有用。
注意
VBFixedStringAttribute 屬性以字節(jié)而不是字符為單位指定字符串長度。
→
沒有這種函數(shù),自己做一個函數(shù),效率不會低,因為都是簡單運算:
Function FillString(ByVal a As String, ByVal b As String, ByVal c As Integer) As String
If a.Length c Then
Return a + StrDup(c - a.Length, b)
Else
Return Mid(a, 1, c)
End If
End Function
用字符串保存兩個數(shù)據(jù),當(dāng)然只有你這種辦法,另外提供你其它思路:
1. flexcell增加兩列,這兩列隱藏不顯示,額外數(shù)據(jù)可以從這兩列讀取
2. 用自定義類型數(shù)組,保存這兩列數(shù)據(jù),數(shù)組順序和表格一樣,或者數(shù)組中增加一個ID元素,與表格對應(yīng)
1。動態(tài)數(shù)組 dim myStr() as string
2。固定數(shù)組 dim myStr(10) as string
3。net字符串?dāng)?shù)組 dim myStr as string()
都差不多的。
摘自幫助文檔,我也不是很理解
估計只有在Visual Basic 文件輸入和輸出才有用
示例
Visual Basic 復(fù)制代碼
Structure Person
Public ID As Integer
Public MonthlySalary As Decimal
Public LastReviewDate As Long
VBFixedString(15) Public FirstName As String
VBFixedString(15) Public LastName As String
VBFixedString(15) Public Title As String
VBFixedString(150) Public ReviewComments As String
End Structure
注意
VBFixedStringAttribute 是信息性的屬性,不能用于將可變長度字符串轉(zhuǎn)換為固定長度字符串。此屬性的作用是修改那些識別 VBFixedStringAttribute 的方法或 API 調(diào)用(如 Len 和 FilePut 函數(shù))使用結(jié)構(gòu)中的字符串以及非局部變量的方式。請記住,此屬性不會更改字符串本身的實際長度。
備注
默認(rèn)情況下,Visual Basic 字符串為可變長度的字符串。在使用 Visual Basic 文件輸入和輸出函數(shù)(如需要固定長度字符串的 FileGet 和 FilePut)時,該屬性非常有用。
注意
VBFixedStringAttribute 屬性以字節(jié)而不是字符為單位指定字符串長度。
標(biāo)題名稱:vb.net定義字符串 vb 包含字符串函數(shù)
分享鏈接:http://m.newbst.com/article42/hjhcec.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站改版、定制網(wǎng)站、動態(tài)網(wǎng)站、App設(shè)計、小程序開發(fā)、定制開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)