vb.net怎样去除逗号,c语言输入中有逗号,怎么去掉

vb编程，怎样处理文件夹路径中的逗号？

何必用FSO？

text1

.text中文件夹路径要包含"\"的结尾

Dim

fn

as

string,all

as

string

fn

=

dir(Text1.Text,vbdirectory)

do

while

len(fn)0

if

fn".."

and

fn"..."

then

all

=

all

vbcrlf

fn

fn

=

dir

loop

msgbox

text1.text

"目录下所有的目录为:"

all

相关问答

Q1: vb怎么删除整篇文章中的逗号

新建一个按钮，取名Command1；新建一个文本框，取名Text1，然后双击Command1，输入如下代码：

Private Sub Command1_Click()

Dim i As Integer

Dim s As String

For i = 1 To Len(Text1.Text)

    If Mid(Text1.Text, i, 1)  "," And Mid(Text1.Text, i, 1)  "，" Then '截取一个字符并判断其是否为英文括号或中文括号

        s = s  Mid(Text1.Text, i, 1) 

        '如果不是，则写入另一个字符串中

    End If

Next i 

MsgBox s       '报告结果

End Sub

启动程序，就可以了

如果不懂，可以追问

Q2: VB.NET中,如何从textbox中去出有逗号的一串数字,并把每个数字区分开?

str=split(textbox.text,",")

a=str(0)

b=str(1)

...

x=str(ubound(str))

Q3: vb中如何去掉数字中的逗号

楼上的方法很好，不过楼主好像是货币数据吧，逗号像是千分号，然后还有小数点，不妨用：

Format("222,222.00", "######")'#可以根据位数多写点

Q4: VB删除每行逗号前面和逗号后面的字符 我求求大家帮下我

Option Explicit

Private Sub Command1_Click()

Dim a As String

Dim aa As String

Dim i As Integer

a = "asdf,235684"

i = InStr(a, ",") '找到","的位置

aa = Left(a, i - 2) + ","

aa = aa + Right(a, Len(a) - i - 1)

Text1.Text = aa

End Sub

Q5: VB.net中任何提取文本文件中的逗号分格数据?

用数组呗。我是用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。