vb点虐 用文本框输入数组的所有元素，数值之间用逗号分隔，统计数组中正数的个数，并显示最大值的元素下标

Dim str As String = "", temp, n As Integer

成都创新互联自2013年创立以来，先为石阡等服务建站，石阡等地企业，进行企业商务咨询服务。为石阡企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

Dim str1 As String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"

Dim a() As String = Split(str1, ",")

For i = 1 To UBound(a) Step 1

a(i) = Val(a(i))

Next

temp = 0

n = 0

For i = 1 To UBound(a)

If a(i)  temp Then

temp = a(i)

End If

If a(i)  0 Then

n = n + 1

End If

Next

str = str  "正数的个数为 "  n

str = str  "最大元素的下标为 "

For i = 1 To UBound(a)

If a(i) = temp Then

str = str  i  " "

End If

Next

TextBox6.Text = str

vb点虐 怎么生成csv文件与怎么读取csv文件

CSV文件，在EXCEL里可以直接生成与读取。

可以通过VB点虐 去操作，打开EXCEL文件，去完成上述操作，而更为简单的办法是直接当做操作文本文件（TXT文件）就可以，因为用记事本软件，打开CSV文可以发现，其实际上是一个行内数据之间用逗号分隔的格式文件。

下面给出例子：

在窗体上添加两个多行文本框，两个按钮，两个文本框一个用来输入生成CSV文件的数据，另一个用来读取显示CSV文件的数据；两个按钮，一个完成生成CSV文件的代码，另一个完成读取CSV文件的代码；具体代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建(写入)一个文本文件

Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.CSV", System.IO.FileMode.Create)

Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)

MyWriter.WriteLine(TextBox1.Text)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'读取一个文本文件

Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.CSV", System.Text.Encoding.UTF8)

TextBox2.Text = MyReader.ReadToEnd()

MyReader.Close()

End Sub

注意：在输入文本框里，同一行数据的数据之间用逗号（西文逗号）分隔。

请问VB中PRINT语句后面用分号和逗号有什么区别？

VB中PRINT语句后面用分号和逗号区别为：表示不同、输出格式不同、适合不同。

一、表示同

1、用分号：用分号表示下次开始紧接着上次结束的位置。

2、用逗号：用逗号表示下次开始的位置和上次结束位置相隔一个Tab的位置。

二、输出格式不同

1、用分号：用分号的输出格式为紧凑格式输出。

2、用逗号：用逗号的输出格式为默认标准格式输出。

三、适合不同

1、用分号：用分号适合于只有中文内容或只有英文内容输出。

2、用逗号：用逗号适合于中文、英文内容混合输出。

VB点虐 中任何提取文本文件中的逗号分格数据?

用数组呗。我是用VB6的，不过你会.NET也肯定能看懂。

不是文本文件么？先用Line Input读每行存入数组。再把每行数据用你的"，"分割，就可以查询了。我写个简单的例子：

'搜索函数，用法Search(标头，序号)，返回数据.

Private Function Search(ByVal Section As String, ByVal Index As Integer) As String

Dim fNum%, Lines%, temp%, Str As String

ReDim Data(0)

fNum = FreeFile()

If Dir("C:\\1.txt") = "" Then Exit Function

'文件路径和文件名你自己改

Open "C:\\1.txt" For Input As #fNum

Do While Not EOF(fNum)

Lines = Lines + 1

'行数

Line Input #fNum, Str

ReDim Preserve Data(Lines)

Data(Lines) = Str

Loop

Close #fNum

If Lines 0 Then

Dim tmp() As String

For temp = 1 To UBound(Data)

tmp = Split(Data(temp), "，")

'分割

If tmp(0) = Section Then

Search = tmp(Index - 1)

'因为从0开始所以-1

Exit Function

End If

Next

End If

End Function

比如你要“gc“开头的第5个数据，就用Search("gc",5)即可返回45。

文章标题：vb点虐 逗号分隔 vb中的逗号和分号
分享URL：http://scyanting.com/article/ddgdics.html