茄子在线看片免费人成视频,午夜福利精品a在线观看,国产高清自产拍在线观看,久久综合久久狠狠综合

    <s id="ddbnn"></s>
  • <sub id="ddbnn"><ol id="ddbnn"></ol></sub>

  • <legend id="ddbnn"></legend><s id="ddbnn"></s>

    vbs 字符統(tǒng)計(jì)功能模塊
    來(lái)源:易賢網(wǎng) 閱讀:1504 次 日期:2016-07-18 15:02:13
    溫馨提示:易賢網(wǎng)小編為您整理了“vbs 字符統(tǒng)計(jì)功能模塊”,方便廣大網(wǎng)友查閱!

    TongJi()將上面代碼保存為TongJi.vbs,在TongJi.vbs同目錄下建立ok.txt文本文件,將你要統(tǒng)計(jì)的文本復(fù)制到ok.txt中,運(yùn)行TongJi.vbs即可以統(tǒng)計(jì)字?jǐn)?shù),與word的功能一樣。

    字符統(tǒng)計(jì)功能模塊

    代碼如下:

    Sub TongJi()

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = objFSO.OpenTextFile("ok.txt", 1)

    strText = objFile.ReadAll

    All = Len(strText)

    S="` ~ ! @ # $ % ^ & * ( ) - _ = + \ | [ { ] } ; : ' , < . > / ? · ! ¥ ( ) 、 【 】 ; : ‘ ' “ ” , 《 。 》 ? …… —— chr(34) vbCrLf"

    Signs=Split(S," ")

    For Each Sign in Signs

    strText = Replace(strText, "Sign", " ")

    Next

    objFile.Close

    For k=1 To Len(strText)

    tmpStr=Mid(strText, k, 1)

    If Asc(tmpStr) > 127 Or Asc(tmpStr) < 0 Then

    c = c + 1

    tmpStr=" "

    End If

    Str = Str + tmpStr

    Next

    arrWords = Split(Str, " ")

    For Each strWord in arrWords

    If Len(strWord) > 0 Then

    i = i + 1

    End If

    Next

    Sum = c + i

    msgbox "字符總數(shù):" & All & chr(13) & "有效字符:" & Sum & chr(13) & "漢字總數(shù):" & c, 64, "字符統(tǒng)計(jì)"

    End sub

    TongJi()將上面代碼保存為TongJi.vbs,在TongJi.vbs同目錄下建立ok.txt文本文件,將你要統(tǒng)計(jì)的文本復(fù)制到ok.txt中,運(yùn)行TongJi.vbs即可以統(tǒng)計(jì)字?jǐn)?shù),與word的功能一樣。不過(guò)算法不一樣,結(jié)果也不太一樣,原因是如何理解何為“有效字符”

    更多信息請(qǐng)查看腳本欄目
    易賢網(wǎng)手機(jī)網(wǎng)站地址:vbs 字符統(tǒng)計(jì)功能模塊
    由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請(qǐng)考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

    2026國(guó)考·省考課程試聽(tīng)報(bào)名

    • 報(bào)班類型
    • 姓名
    • 手機(jī)號(hào)
    • 驗(yàn)證碼
    關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡(jiǎn)要咨詢 | 簡(jiǎn)要咨詢須知 | 新媒體/短視頻平臺(tái) | 手機(jī)站點(diǎn) | 投訴建議
    工業(yè)和信息化部備案號(hào):滇ICP備2023014141號(hào)-1 云南省教育廳備案號(hào):云教ICP備0901021 滇公網(wǎng)安備53010202001879號(hào) 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號(hào)
    云南網(wǎng)警備案專用圖標(biāo)
    聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號(hào):hfpxwx
    咨詢QQ:1093837350(9:00—18:00)版權(quán)所有:易賢網(wǎng)
    云南網(wǎng)警報(bào)警專用圖標(biāo)