字元統計例

'字元統計例
Module Module1
    Dim i
    Sub Main()
        Dim str1 = "海角七號特別報導：《海角七號》掀起國片熱；然而，「海角現象」之後，台灣電影下一步如何走？本土創作者如何克服客觀條件限制？下一部《海角七號》又在哪裡？正值金馬獎公布入圍名單，本報調查採訪室與影劇組合作，訪問四位近一年內有推出新作的導演，以及影視產業學者，共同來探討台灣電影「情非得已的生存之道」。 「偷天換日、暗渡陳倉、草船借箭、虛與委蛇……」在電影鏡頭外，台灣導演每天都在上演鬥智鬥力的戲碼，爆紅前的魏德聖也一樣。《海角七號》的企製人員透露，曾拖欠恆春一家便當店十八萬元達一個月，還得每天硬得頭皮去訂便當。電影創作者如何打一場不對稱的資源消耗戰？我們看到的菲林背後，又有哪些動人的故事？事實上，鈕承澤就把台灣導演的甘苦，拍成一部《情非得已之生存之道》，他說，當初獲得三百五十萬輔導金，就算自己募得相對資金，也不過七百萬元，很難依照原訂構想拍片，「光是一場自焚戲，大概就要花三百五十萬」，他靈機一動，改用「偽紀錄片」的形式，說一個真真假假的故事。 鈕承澤表示，片中部分劇情刻意誇大搞笑，有些橋段卻真實發生，包括拍片資金是媽媽的姐妹淘合力湊來的，還有一位洪阿姨把定存解約， 投資他拍電影；劇中會計天天喊著公司帳戶沒錢、卻收到兩百萬元電影娛樂稅的稅單，全都活生生上演。創意導演(窮則變變則通) 不過，窮有窮的拍法，窮也能拍出豐富的創意。《情非得已之生存之道》主要場景就在「豆導」位於東區的公司兼住處，手提攝影機既增加真實感、又省下鋪設軌道的時間，演員也與劇組大幅重疊，該省的、能省的都省了，就連片中的心理諮商師，都是情商客串。這樣的小成本製作，照樣在金馬獎及鹿特丹影展拿下好成績。 說起「窮的創意」，台灣導演的確很有一套，導演鴻鴻去年的《穿牆人》申請輔導金時，原本想拍歌舞片，雖然獲得一千萬元輔導金，但評估兩千萬很難拍出大場面的歌舞片， 於是改弦易轍，類型改成科幻片。然而，經費又不足以搭建龐大的科幻布景，怎麼辦？ -- 資料來源：http://forums.chinatimes.com/report/2008_usa/page01/97102102.htm"
        Dim c = 0
        For i = 1 To Len(str1)
            If Mid(str1, i, 1) = "海" Then
                Console.Write(Mid(str1, i, 1))
                c = c + 1
            End If
        Next
        Console.WriteLine()
        Console.WriteLine("共有" & Len(str1) & "個字")
        Console.Write("共有" & c & "個海")
        Console.Read()
    End Sub
End Module

字串的上下左右方向控制

'字串的上下左右方向控制
Module Module1
    Dim i
    Sub Main()
        Dim str1 = "明天會更好"

        For i = 1 To 5
            Console.Write(Mid(str1, i, 1))
        Next

        Console.WriteLine()
        Console.WriteLine()
        For i = 5 To 1 Step -1
            Console.Write(Mid(str1, i, 1))
        Next

        Console.WriteLine()
        Console.WriteLine()
        For i = 1 To 5
            Console.WriteLine(Mid(str1, i, 1))
        Next

        Console.WriteLine()
        For i = 5 To 1 Step -1
            Console.WriteLine(Mid(str1, i, 1))
        Next

        Console.Read()
    End Sub
End Module

cc ho老師找到提供的「最長子字串」演算法連結

 

The pseudo-code is show below:

func lis( a )
   initialize best to an array of 0's.
   for ( i from 1 to n )
     .....

Longest Increasing Subsequence - Algorithmist 

21世紀有172個13日星期五？

TIOBE Software: Tiobe Index

TIOBE Software: Tiobe Index