重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim s As String = "asdasdfasdf asdfasdf 12sdfsdf asdfa"
成都创新互联"三网合一"的企业建站思路。企业可建设拥有电脑版、微信版、手机版的企业网站。实现跨屏营销,产品发布一步更新,电脑网络+移动网络一网打尽,满足企业的营销需求!成都创新互联具备承接各种类型的成都做网站、成都网站建设项目的能力。经过十余年的努力的开拓,为不同行业的企事业单位提供了优质的服务,并获得了客户的一致好评。
Dim arr() As String = Split(s, " ")
Dim 前部分 = String.Join(" ", arr, 0, 3)
Dim 后部分 = String.Join(" ", arr, 3, arr.Length - 3)
回答问题,保证品质 ^_^
假设S是保存原字符串的变量或文本框
Dim tS As String, ttS As String
Do While S ""
If InStr(S, vbCrLf) 0 Then
tS = Left$(S, InStr(S, vbCrLf) - 1)
S = Mid$(S, InStr(S, vbCrLf) + 2)
Else
tS = S
S = ""
End If
ttS = ttS "ddddddd" Mid$(tS, 5) vbCrLf
Loop
S = ttS
如果是每行添加字符串则把倒数第3行换成
ttS = ttS "bb" tS vbCrLf
注意,不论输入时最后有没有换行,输出时都有
最好的办法:
Dim aa As String = "123456789"
MsgBox(aa.Substring(7))
Dim fs As New System.IO.FileStream("D:\1.txt", IO.FileMode.Open, IO.FileAccess.Read)
Dim buffer(3) As Char
Dim re As New System.IO.BinaryReader(fs)
re.Read(buffer, 0, 4)'表示从0位开始读4位
MsgBox(buffer)