作者jokkson (Jason)
看板Visual_Basic
标题Re: [.NET] 请教各为神大大,哪里有错啊?
时间Sat Aug 11 14:42:56 2007
以下程式你参考一下
Module Module1
Sub Main()
Dim str As String = "我是丁丁,他是丁丁,谁是丁丁"
Console.WriteLine("字串为：我是丁丁,他是丁丁,谁是丁丁")
Console.WriteLine("")
For Each showstr As String In str.Split(",")
Console.WriteLine(showstr)
Next
Console.Read()
End Sub
End Module
※ 引述《jamanson (jason)》之铭言：
: 我写了一个小程式,
: 目的是要把句子依符号(ex.逗号)分开,
: 比方说下面这段话:
: "我是丁丁,他是丁丁,谁是丁丁"
: 将他分开印出成:我是丁丁
: 他是丁丁
: 谁是丁丁
: 但是却不知道有什麽问题,弄不太出来
: 以下是我的程式,请教各为神大大,问题出在哪里?
: ====================================================
: Module Module1
: Sub Main()
: Dim count As Integer = 0, i, j, k As Integer
: Dim str, showstring As String
: Dim sen As String() = New String() {}
: Console.WriteLine("请输入任何只有中文字的句子")
: str = Console.ReadLine()
: For i = 1 To Len(str)
: If Mid(str, i, 1) = "," Then
: sen(j) = Mid(str, k + 1, i - 1) '我怀疑问题出现在这里??
: k = i
: j += 1
: End If
: Next
: For Each showstring In sen
: Console.WriteLine("{0}", showstring)
: Next
: Console.Read()
: End Sub
: End Module
: =====================================================
: 补充一下,我用的是VB2005express
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.169.198.126
1F：推 jamanson:感谢,我已经解决了 08/16 00:42