Access技巧接龍

lanchong

誰(shuí)幫寫(xiě)個(gè)清除空格的函數(shù)，不管空格在字段何處，通通清除

xlonger

以下是引用ntcat在2004-12-28 11:13:00的發(fā)言：


關(guān)于取得漢字的第一個(gè)拼音字母的函數(shù),推薦使用我的GetPyAbOfHz函數(shù).速度比上述HZPY快一倍. 不信? 測(cè)試代碼附后

Public Function GetFirstChr(ByVal sSrc As String)
    Dim sTemp As String
    sTemp = Left(sSrc, 1)
Select Case Asc(sTemp)
    Case 48 To 122
         GetFirstChr = sTemp
    Case Is >= Asc("匝")
         GetFirstChr = "Z"
    Case Is >= Asc("壓")
         GetFirstChr = "Y"
    Case Is >= Asc("昔")
         GetFirstChr = "X"
    Case Is >= Asc("挖")
         GetFirstChr = "W"
    Case Is >= Asc("塌")
         GetFirstChr = "T"
    Case Is >= Asc("撒")
         GetFirstChr = "S"
    Case Is >= Asc("然")
         GetFirstChr = "R"
    Case Is >= Asc("期")
         GetFirstChr = "Q"
    Case Is >= Asc("啪")
         GetFirstChr = ""
    Case Is >= Asc("哦")
         GetFirstChr = "O"
    Case Is >= Asc("拿")
         GetFirstChr = "N"
    Case Is >= Asc("媽")
         GetFirstChr = "M"
    Case Is >= Asc("垃")
         GetFirstChr = "L"
    Case Is >= Asc("喀")
         GetFirstChr = "K"
    Case Is >= Asc("擊")
         GetFirstChr = "J"
    Case Is >= Asc("哈")
         GetFirstChr = "H"
    Case Is >= Asc("噶")
         GetFirstChr = "G"
    Case Is >= Asc("發(fā)")
         GetFirstChr = "F"
    Case Is >= Asc("蛾")
         GetFirstChr = "E"
    Case Is >= Asc("搭")
         GetFirstChr = "D"
    Case Is >= Asc("擦")
         GetFirstChr = "C"
    Case Is >= Asc("芭")
         GetFirstChr = "B"
    Case Is >= Asc("啊")
         GetFirstChr = "A"
    Case Else
         GetFirstChr = "0"
End Select
End Function
'取得漢字的拼音縮寫(xiě)
Public Function GetPyAbOfHz(ByVal sHz As String) As String
    Dim sTmp, ch As String
    Dim i As Integer
    For i = 1 To Len(sHz)
        ch = Mid(sHz, i, 1)
        Select Case ch
            Case ".", "(", ")", "+", "-"
                sTmp = sTmp & ch
            Case " "
            Case Else
                sTmp = sTmp & GetFirstChr(ch)
        End Select
    Next
    GetPyAbOfHz = sTmp
End Function
'----------------------------------------速度測(cè)試代碼:---------

Public Sub speed_HZPY()
    Dim a1 As Single
        Dim i As Long

    a1 = Timer
    For i = 1 To 66542
        HZPY ("地要不是在遙吶喊濁奪標(biāo)熾烈二有遙感地于規(guī)劃")
    Next
    Debug.Print Timer - a1
End Sub
Public Sub SPEED_GetPyAbOfHz()
    Dim a1 As Single
    Dim i As Long
    a1 = Timer
    For i = 1 To 66542
        GetPyAbOfHz ("地要不是在遙吶喊濁奪標(biāo)熾烈二有遙感地于規(guī)劃")
    Next
    Debug.Print Timer - a1
   
End Sub

你的函數(shù)不認(rèn)識(shí)，“埭”，字，但能判斷“金屬”為JS。HZPY判斷“金屬”為JZ,但認(rèn)識(shí)“埭”字。

菩明本何

以下是引用lanchong在2005-4-12 15:10:00的發(fā)言：
誰(shuí)幫寫(xiě)個(gè)清除空格的函數(shù)，不管空格在字段何處，通通清除

新鮮出爐。你試試��！嘿嘿。。。


Public Function txtpu(text As Variant)
If Not IsNull(text) Then '字符串為空時(shí)不計(jì)算
    Dim my1 As Integer  '取字符起始位置
    Dim my2 As Integer  '取字符終止位置
   
    Dim mytt As Variant ' 取字符
'    Dim text As Variant '原始字符串
    Dim txt As Variant  ' 結(jié)果
   
'   text = text
   
    my1 = 1 '起始位數(shù)


    While my1 < Len(text)  '循環(huán)次數(shù)
        my2 = InStr(my1, text, " ", 1)  '取得截取字符的結(jié)束位置
        
        If my2 > 0 Then '是否為最后一次到值
           
           mytt = Mid(text, my1, my2 - my1)
           my1 = my2 + 1 '計(jì)數(shù)器加1
        
        Else
           mytt = Mid(text, my1)
           my1 = Len(text) + 100 '計(jì)數(shù)加100。退出循環(huán)
      End If
      txt = txt & Trim(mytt)
    Wend
    txtpu = txt
End If
End Function

[此貼子已經(jīng)被作者于2006-9-24 10:59:30編輯過(guò)]

Trynew

以下是引用lanchong在2005-4-12 15:10:00的發(fā)言：
誰(shuí)幫寫(xiě)個(gè)清除空格的函數(shù)，不管空格在字段何處，通通清除

可以直接使用string=Replace(string," ",""),要連全角的空格也清除可以這樣：

?　replace(replace(" 123　123 qwer qwer ｑｗｅｒ�。瘢鳎澹�  ",chr(32),""),chr(-24159),"")

Trynew

Public Function jjos(x As Double, m As Integer, n As Integer)
'// **“四舍六入，逢五奇進(jìn)偶舍”自定義函數(shù)過(guò)程 **

'// 函數(shù)形式 jjos(x,m,n) ,返回值ret_jjos為 Decimal 型

'// x為操作數(shù)值, m為最多保留小數(shù)位數(shù),n為有效數(shù)字位數(shù)

'// m、n皆為 Integer 型

'// m = 0 表示取整數(shù),n = 0 表示對(duì)有效數(shù)字無(wú)要求

Dim i As Integer, ret_jjos As Double, j As Integer


j = 1

If x < 0 Then j = -1  ' //j用于記憶是正數(shù)還是負(fù)數(shù)

If n > 0 Then

Do While Abs(x) >= 10 ^ (n - m)

     x = x / 10    '//向前移動(dòng)一個(gè)小數(shù)點(diǎn)

     i = i + 1

Loop

End If

If Int(x * 10 ^ (m + 1)) = x * 10 ^ (m + 1) Then

    x = Round(x, m + 2)

    ret_jjos = Val(Left(Right(Str(x), 3), 1))

    If Right(Str(x), 2) = "50" And Int(ret_jjos / 2) = ret_jjos / 2 Then

        ret_jjos = Int(x / 10 ^ m) * 10 ^ i '//唯一此種情況舍

    Else

        ret_jjos = Round(x, m) * 10 ^ i '//不是那種情況執(zhí)行四舍五入

    End If

Else

    ret_jjos = Round(x, m) * 10 ^ i  ' //其它情況執(zhí)行四舍五入

End If

If n > 0 Then

    If Int(ret_jjos) >= 10 ^ (n - 1) Then

        ret_jjos = Int(ret_jjos)

    ElseIf Abs(ret_jjos) >= 1 Then

        ret_jjos = Val(Left(Str(Abs(ret_jjos)), n + 1)) * j

    End If

End If

jjos = ret_jjos  '//返回處理結(jié)果


End Function

好學(xué)

請(qǐng)問(wèn)高手們,MD5加密是要來(lái)加密什么的?[em06]

hi-wzj

md5是實(shí)現(xiàn)的是單向加密，他人（比如系統(tǒng)管理人員）拿到加密后的字串是無(wú)法還原為加密前的字串的。系統(tǒng)驗(yàn)證的方式仍是通過(guò)將字串md5加密后，比較加密后的字串是否完全相同來(lái)判定。

主要適用于登陸密碼的加密，最大限度的保證密碼只有用戶自己才能通過(guò)驗(yàn)證。

來(lái)點(diǎn)暴風(fēng)雨

學(xué)習(xí)了，頂上去[em01][em01]

lilk

真的學(xué)習(xí)

eyewitnes

以下是引用lanchong在2005-4-12 15:10:00的發(fā)言：
誰(shuí)幫寫(xiě)個(gè)清除空格的函數(shù)，不管空格在字段何處，通通清除

試試函數(shù)trim 、LTRIM、RTRIM？好像就是這個(gè)功能的