作者jamanson (jason)
看板Visual_Basic
标题[VB6 ] 请教各为神大大,哪里有错啊?
时间Sat Aug 11 01:19:15 2007
我写了一个小程式,
目的是要把句子依符号(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.160.238.62
※ 编辑: jamanson 来自: 218.160.238.62 (08/11 01:19)
1F：推 gofin:记得VB2005好像也可以用 阵列=spilt(字串,分隔符号) 08/11 09:30
2F：推 fumizuki:Join(Split(字串, ","), vbCrLf) 08/11 11:34
3F：推 fumizuki:Join(字串.Split(","), vbCrlf) 08/11 11:35
4F：→ fumizuki:记得标题要用[.NET] 不是VB6 08/11 11:41
5F：→ jamanson:Join要怎麽用啊? 08/11 14:31