Dim s As String = "asdasdfasdf asdfasdf 12sdfsdf asdfa"
成都創(chuàng)新互聯(lián)"三網(wǎng)合一"的企業(yè)建站思路。企業(yè)可建設(shè)擁有電腦版、微信版、手機(jī)版的企業(yè)網(wǎng)站。實(shí)現(xiàn)跨屏營銷,產(chǎn)品發(fā)布一步更新,電腦網(wǎng)絡(luò)+移動(dòng)網(wǎng)絡(luò)一網(wǎng)打盡,滿足企業(yè)的營銷需求!成都創(chuàng)新互聯(lián)具備承接各種類型的成都做網(wǎng)站、成都網(wǎng)站建設(shè)項(xiàng)目的能力。經(jīng)過十余年的努力的開拓,為不同行業(yè)的企事業(yè)單位提供了優(yōu)質(zhì)的服務(wù),并獲得了客戶的一致好評。
Dim arr() As String = Split(s, " ")
Dim 前部分 = String.Join(" ", arr, 0, 3)
Dim 后部分 = String.Join(" ", arr, 3, arr.Length - 3)
回答問題,保證品質(zhì) ^_^
假設(shè)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
如果是每行添加字符串則把倒數(shù)第3行換成
ttS = ttS "bb" tS vbCrLf
注意,不論輸入時(shí)最后有沒有換行,輸出時(shí)都有
最好的辦法:
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)