如何在VB或VB.net中读取一个文件,然后把指定两个字符串之间的内容转储到另一字符串变量中
Function a(s As String) As String
Dim i = s.IndexOf("/")
If i > 0 Then
Return s.Substring(0, i)
ElseIf i = 0 Then '第一个字符为"/"
If s.LastIndexOf("/") 0 Then '不只一个"/"
Return s.Substring(0, s.Substring(1).IndexOf("/") + 1)
Else
Return Nothing '只有一个"/"
End If
Else '不含"/"或是空串
Return Nothing
End If
End Function
基本上不出错了
vb.net规定如果要比较字符串,不能用“=”,strcomp(str1,str2,n)或者string.compare(str1,str2)
例如:
Dim a As String = "c"
Dim b As String = "c"
Dim n As Integer = String.Compare(a, b)
If n = 0 Then
MsgBox("=")
Else
MsgBox("")
End If
on error resume next '需要有这句话, 第三句可能产生异常, 有了这句可以顺利进入下一条
Dim StrInfo as String '接收信息的字符串
Dim ReadStream As New System.IO.StreamReader("a.txt", System.Text.Encoding.Default) '建立一个读入流,"a.txt"为你要读入的文件
If ReadStream IsNot Nothing Then '如果文件存在, 且可读
Do Until ReadStream.EndOfStream '逐行扫描,直到文件结尾
StrInfo = ReadStream.ReadLine() '读入一行, 保存至StrInfo, (内部指针指向下一行)
'后面你就可以操作StrInfo啦
Loop
ReadStream.Close() '用完了别忘记关闭文件哦
End If
Private Sub Command1_Click()
Dim s As String, s1 As String, s2 As String, s3 As String
Dim i As Long, j As Long
s1 = "<pre>" '第一个字符串
s2 = "</pre>" '第二个字符串
Open "123.txt" For Binary As #1 '打开文件123.txt
s = Input(LOF(1), #1) '把文件中的全部内容读入字符串变量s中
Close #1 '关闭文件
i = InStr(s, s1) '得到第一个字符串在s中的位置
If i > 0 Then
j = InStr(i + Len(s1), s, s2) '得到第二个字符串在s中的位置
If j > 0 Then
s3 = Mid(s, i + Len(s1), j - i - Len(s1)) '把两个字符串间的内容放入变量s3中
End If
End If
End Sub
这个嘛,可以这样,用instr函数
如果第一个字符串为a
第二个为b
加入文件的内容放到了Text1中
然后
Dim m as string
dim n as string
dim o as string
m=instr(text1.text , a )'获取第一个字符出现的位置
n=instr(text1.text,b)'获取第二个字符出现的位置
o=mid(text1.text,a+1,b-a)’截取中间的内容
MsgBox"o"
给你个地址自己看看吧
这些微软都有详尽示例
文件操作
http://msdn.microsoft.com/zh-cn/library/system.io.file.aspx
仔细看哦
vb输入n,求sn=1!+2!+3!+。。。+n!
VB.Net代码 Dim Result As Integer = 0 Private Event OutValue(ByVal i As Integer) '用于返回值的事件 Private Event Finish() ‘表示循环结束的时间 Sub Calc(ByVal n As Integer)Dim tInt As Integer = 1 For i = 1 to n tInt *= i RaiseEvent OutValue(tInt)Next i RaiseEvent ...
vb中,;:都有什么作用?
VB中分号,也用在print语句中,以紧凑格式用来分隔各输出项,输出的字符之间留一个空格位,输出的数值之间除留一个空格位外还留一个符号位。\\r\\n\\r\\n例子:\\r\\na=1:b=2\\r\\nprint a;b\\r\\n结果为\\r\\n12\\r\\n\\r\\n如果是print a,b\\r\\n\\r\\n那么1,2中间会有空格。用分号没有空格。\\...
求代码 用vb求n的阶乘 高手出招啊
Private Sub Form_Click()Dim n As String Dim i As Integer Dim a As Integer n = InputBox("请输入需要求何整数的阶乘:")If IsNumeric(n) = True Then If Val(n) = Int(n) Then i = 1 a = 1 Do While i <= n a = a * i i = i + 1 Loop Print "n!=" & a Else...
vb的n!???
如果n=1则返回1,否则返回n*fac(n-1)由于fac(n-1)继续这样的逻辑 所以最终会返回 n*(n-1)*(n-2)*...*2*1=n!加我为满意答案吧
vb中n次幂的和咋表示?
private sub command1_click()dim i as integer,j as integer,sum as integer,num as integer num=val(text1) \/\/num为输入要求的数 j=val(text2) \/\/j为输入的幂 for i=1 to j \/\/通过i来循环,如果i是从0开始,则要j-1 sum+=num^i \/\/求和 next i \/\/如果i<j则...
vb 语言解释
TVW.Nodes(curIndex).Children (TVW.Nodes(curIndex)节点的孩子节点)curIndex (函数内传入的节点下标)n = TVW.Nodes(curIndex).FirstSibling.Index 中TVW.Nodes (curIndex).FirstSibling.Index代表什么?VW.Nodes(curIndex).LastSibling.Index 代表什么?LastSibling.Index代表什么?FirstSibling是返回...
VB中开n次方怎么表示
VB中开n次方用 ^n 即可。示例,X的N次方:x ^ n 实例(2的3次方):Value = 2 ^ 3 Print Value
vb函数大全
VB中字符串函数包含: mid、instr、InStrRev、left、right、ucase、lcase、trim、string space、strconv、len、ltrim、rtirm、split()、join()、srereverse、replaceFilterMonthName Format、LSet、RSet、FormatCurrency、FormatDateTime、FormatNumber FormatPercent、StrComp、StrConv、StrReverse、WeekdayName、Option...
怎么用VB求N个数的和,平方和,平均值和平方和的平方根?代码是什么?求高 ...
Private Sub Command1_Click()Dim a() As Single, s As Single Dim n n = InputBox("输入个数")ReDim a(n)For i = 1 To n a(i) = InputBox("输入数值")Next i For i = 1 To n s = s + a(i)Next i Print "和="; s Print "平均值="; s \/ n s = 0 For i = ...
VB中tab(n)是什么意思
VB中Tab(n)是与 Print # 语句或 Print 方法一起使用,对输出进行定位。Tab 函数,与 Print # 语句或 Print 方法一起使用,对输出进行定位。语法 Tab[(n)]可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。若省略此参数,则 Tab将插入点移动到下一个打印区的起点。这就使 ...
扈畅威赛: 给你一个实用的VB.net版本吧on error resume next '需要有这句话, 第三句可能产生异常, 有了这句可以顺利进入下一条Dim...
沙市区19518443668: vb.net怎么从文本文档中读取一行数据,将文本输出到控制台? - ?
扈畅威赛: 以下示例一次从文件中读取一行,然后将每行文本打印到控制台. Sub ReadTextLinesFromFile() Dim file As New System.IO.StreamReader("c:test.txt") Dim oneLine As String oneLine = file.ReadLine() While (oneLine"") Console.WriteLine(oneLine) oneLine = file.ReadLine() End While file.Close() End Sub
沙市区19518443668: vb.net怎么实现读取指定WORD文档中的内容 - ?
扈畅威赛: If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK ThenDim docApp As Word.Application Dim docDocument As Word.Document Try docApp = New Word.Application docDocument = docApp.Documents.Open(OpenFileDialog1...
沙市区19518443668: VB.net遍历某个文件夹,并读取子目录中的指定文件 - ?
扈畅威赛: vb.net:Dim path = System.IO.Directory.GetFiles("D:\Log\abc", "*.txt", SearchOption.AllDirectories):搜索该路径下的所有txt类型的目录及子目录 path.AddRange(path) Dim _RecordInfo As String Dim _Reader As StreamReader _Reader = New StreamReader(file, System.Text.Encoding.Default):'以Default编码的形式读取file文件(文件写入的编码要与读取的编码一致)
沙市区19518443668: 如何在VB中读取另一个窗体的内容 - ?
扈畅威赛: 如果窗体1(Form1)没关,可以在窗体2(Form2)中直接用Form1.Text1.Text读取其值;如果窗体1(Form1)可能关了(UnLoad),则须在模块(Module1)中声明一个全局字符串变量(Public)来保存你想在其它窗体用的内容
沙市区19518443668: 怎么用VB读取网上一个数据库的内容 - ?
扈畅威赛: 你在建数据库里,用SQL之类的就可以了,数据类型设置为2进制类型,然后连接数据库,然后2进制写入,读取时也2进制读取,写回存档就可以了啊.
沙市区19518443668: VB.net中文件的读操作 - ?
扈畅威赛: 改你的代码,试试吧.只读一行哦.读全用ReadToEnd Dim path As String = "e:\\vb\score.txt" Using sr As New IO.StringReader(path) Dim m As String = sr.ReadLine() RichTextBox1.Text = m sr.Close() End Using
沙市区19518443668: VB.net如何跟别个程序一起读取一个TXT文档呢,一个程序写入数据,VB.net读取,说什么文件 - ?
扈畅威赛: 定义一个 SreamReader,读取并显示文件内容之后执行 SreamReader.Close 命令,这样其他程序也可以读取该文件
沙市区19518443668: vb.net中如何获取TextBox中输入字符串的某一个字符 - ?
扈畅威赛: Dim a As String a = "how are you" Dim b As String b = Mid(a, 6, 1) b就是你要的
沙市区19518443668: VB.net2005中到底怎么读取ini文件 - ?
扈畅威赛: 用API吧 Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal ...