作者 主題: 請各位大大幫我修改這個程式vb.net....  (閱讀 4970 次)

0 會員 與 1 訪客 正在閱讀本文。

gill7892001

  • 可愛的小學生
  • *
  • 文章數: 2
    • 檢視個人資料
以下是一個跑外字的程式,但是有點問題,跑不出來能不能幫我找一下那裡錯了^^"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Readfile As New System.IO.StreamReader("c:\kau.txt", System.Text.Encoding.GetEncoding("BIG5"))
Dim Writefile As New System.IO.StreamWriter("c:\ss.txt")
Dim Writefile1 As New System.IO.StreamWriter("c:\ss1.txt")
Dim k(10) As String
Dim f(10) As String
Do
k(10) = Readfile.ReadLine()
f(10) = StrConv(k(10), VbStrConv.Wide)

Loop Until Readfile Is Nothing


Dim i As Integer
f(2) = 0
f(9) = 0
f(1) = Len(k(1))
For i = 1 To f(1)
f(2) = f(2) + 1
k(3) = Mid$(k(1), f(2), 1)
f(10) = (Asc(k(3)))
Select Case f(10)
Case -1472 To -258, -29120 To -24322, -32448 To -29186, -14687 To -14082
f(9) = f(9) + 1
Case Else
f(9) = f(9)
End Select
Next i
If f(9) > 0 Then

Writefile.WriteLine(f(9))
Console.WriteLine()

Else
Writefile.WriteLine(f(9))
Console.WriteLine()
End If
Readfile.Close()
Writefile.Close()
End Sub

gill7892001

  • 可愛的小學生
  • *
  • 文章數: 2
    • 檢視個人資料
請各位大大幫我修改這個程式vb.net....
« 回覆 #1 於: 2005-07-27 17:28 »
請問一下,使用vb.net要怎麼在檔案的某行內取某些字元做全形或半形的轉換呢?
例如:
第一行的前8個半形字要轉成全形...此程式該如何寫?

Sanada

  • 可愛的小學生
  • *
  • 文章數: 14
    • 檢視個人資料
請各位大大幫我修改這個程式vb.net....
« 回覆 #2 於: 2005-08-20 09:12 »
Do
k(10) = Readfile.ReadLine()
f(10) = StrConv(k(10), VbStrConv.Wide)

Loop Until Readfile Is Nothing

你宣告了k ,f 各10 個陣列,而且你還用 錯了
VB .NET 的陣列起始值是和C# 一樣從零開始
況且你一直把讀出的東西丟到同一個空間,這樣看不出來你宣告字串陣列的意義
如此一來,剩下的程式碼就沒有任何意義,也跑不出什麼結果