Pei-Ting’s blog

Dim str As String = "1,3,5,6,7,8,9"
Dim strAry As String() = str.Split(",")
Dim tempStr As Integer

Dim flag As Boolean = False 

'利用廻圈把陣列裡的元素帶出來比對
For j = 0 To strAry.Length - 1
	'第一筆資料不用比，直接塞到要輸出的字串，及要比對的字串
	If j = 0 Then
		seq.Append(strAry(j).ToString)
		tempStr = CInt(strAry(j))
	End If

	'從跑第二次廻圈開始就要與前一個字比對是否為連續數字
	If j > 0 Then

		'前一個數字加一，陣列元素裡的數字若相同，則為連續數字
		If CInt(strAry(j).ToString) = tempStr + 1 Then
			'如果陣列元素已經是最後一個就不用繼續比直接塞回傳值
			 If j = strAry.Length - 1 Then
				If flag Then
					seq.Append("-" & strAry(j).ToString)
				Else
					seq.Append("," & strAry(j).ToString)
				End If
			Else

			'不是最後一個就繼續比，不塞回傳值
				flag = True
				tempStr = CInt(strAry(j).ToString)
			End If
		Else
		'前一個數字加一，陣列元素裡的數字若不相同，就要將前一個字和這個數字同塞回傳值
			If flag Then
				seq.Append("-" & tempStr & "," & strAry(j).ToString)
			Else
				seq.Append("," & strAry(j).ToString)
			End If

			'設定下一個要比對的數字為此陣列元素的字
			tempStr = CInt(strAry(j).ToString)
			flag = False
		End If
	End If
Next

提醒自已以後要注意
節錄：yahoo 理財
申報房租支出時，須檢附下列文件：一、承租房屋的租賃契約書及支付租金的付款證明影本（如：出租人簽收的收據、自動櫃員機轉帳交易明細表或匯款證明）；二、於承租地址辦妥戶籍登記的證明，或納稅人載明承租房屋確實供自住且非供營業或執行業務使用的切結書。

很多房客在租屋時，都會與房東口頭或書面約定「房租不報稅」，但國稅局官員表示，這樣的約定並沒有法律效力，即使明文列在租約裡也一樣，房客還是可以申報房租支出，但要考慮到房東可能會因此調漲房價。

//呼叫左邊補0函式
padLeft(字串,補0長度)
//呼叫右邊補0函式
padRight(字串,補0長度)

function padLeft(str,lenght){
  if(str.length >= lenght)
   return str;
  else
   return padLeft("0" +str,lenght);
 }

 function padRight(str,lenght){
  if(str.length >= lenght)
   return str;
  else
   return padRight(str+"0",lenght);
 }

Dim R As Random = New Random
R.Next(取號下限, 取號上限，需大於或等於下限)

主要是利用兩個廻圈和兩個陣列把要拆解的字慢慢拆出來，因為用的例子是用，所以有放了兩個字母的對照用的function。
Read on »

做了程式設計師有一段時間了，腦袋快爆炸，常常記不起來之前寫過什麼，只好用這個來整理，歡迎一起來討論。

不知不覺從新手魚媽媽到現在養魚已經一年多了，從原來一缸魚變成了兩缸，家也從新竹搬到台北了，魚缸裡的魚來來去去已經好幾隻了，現在一尺的魚缸有八隻紅蓮燈、二隻黃紋角螺，一隻巧克力娃娃，還有巧娃的飼料–無數隻的黑殼蝦，小的缸裡面是一隻母孔雀和他最近生的兩批小小小魚。
這些小孔雀不知道什麼時候才會長大成”魚”，真期待他們變大魚的樣子。

跳舞課第一天，正式的老師出國，遇到的是代課老師，不過老師教的還不錯，雖然只是想運動，上完第一天感覺還蠻好玩的，N年沒跳舞了，感覺還是很容易手腳不協調。
聽說第一堂課老師並沒有教動作，就帶著其他人跳了，不曉得他回來後，我會不會還蠻感覺到蠻有趣的。
上完的感覺，只有全身酸痛，接下來考慮一週一天游泳，一天跳舞。

清晨五點鬧鐘響了，走出飯店，一陣冷風吹醒了我們，抬頭看看天空，還是漆黑一片，只有滿天的星星和孤寂的山區小鎮，便利商店燈光顯的有點突兀，大家都還在呼呼大睡，想必每個人都在做美夢吧。距離日出時間還有一個半小時，我們今天的目的地是-大凍山。

照著前一天飯店人員的指示，我們在漆黑的山中開著車，諾大的山林裡只有我們的車燈在樹林間閃啊閃的，路愈走愈遠，愈走愈偏僻，不時還傳來陣陣的狗叫聲，不禁懷疑起自已走的路到底對不對，就在猶豫不決，不知是否該回頭的時候，魚缸喊了一聲…… Read on »