請問文字檔如何可以讀取中間的一段文字?

Question

請問文字檔如何可以讀取中間的一段文字?
比如, 有一段文字, 中英文夾雜, 我想讀取其中的中間的15個字(有中英文),
要如何寫用VB, 謝謝

Answer 1

Private Sub Command1_Click()Dim S As String, K As String'將C:\Test.txt獨到S變數Open "C:\Test.txt" For Input As #1Do Until EOF(1)   Line Input #1, K   S = S & KLoop'利用Mid函數從S字串一半的地方讀取15個字Print Mid(S, Len(S) \ 2, 15)End SubMid 函數從一字串傳回特定數量字元所構成的Variant (String) 。語法Mid(string, start[, length])Mid 函數的語法具有以下的指名引數：單元說明string必要引數。傳回字元之來源字串運算式。如果 string 所含為 Null，將傳回Null。start必要引數；為 Long。欲傳回字元之開頭位置。如果 start 超過 string 的範圍，Mid 傳回零長度字串 ("")。length選擇性引數；為 Variant (Long)。即傳回之字元數。如果省略或 length 超過可以傳回的字元數，(包括 start 處的字元) ，那將傳回從 start 到尾端的所有字元。請注意欲知 string 的字元數，可用Len 函數。附註 使用 MidB 函數可得字串之位元組數，如同在雙位元組字元集語言中依樣。。其引數所重的非字元數，而是位元組數。對於使用 MidB的代碼，請參閱中的第二個。