簡單,思路:
樊城網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,樊城網(wǎng)站設(shè)計制作,有大型網(wǎng)站制作公司豐富經(jīng)驗。已為樊城上千余家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢,請找那個售后服務(wù)好的樊城做網(wǎng)站的公司定做!
1、將每行數(shù)據(jù)放到數(shù)組
2、把”:“作為分隔符拿到你想要的字符串
程序如下:
dim?ArrTemp()?as?string
ArrTemp=split(你的這堆字符,vbcrlf)
dim?i?as?int
dim?ArrTemp1()?as?string
for?i=0?to?ubound(ArrTemp)
ArrTemp1=split(ArrTemp(i),":")
msgbox?left(ArrTemp1(1),len(ArrTemp1(1))-1)
next
VB內(nèi)部采用Unicode編碼,在這種編碼格式下,任何字符(包括半角的字母、數(shù)字、符號以及全角的漢字、符號)都是占用兩個字節(jié)的。因此,Len("1111徐")的返回值是5,表示5個字符,而LenB("1111徐")的返回值是10,表示占用10個字節(jié)。
要想按ANSI編碼格式來獲取字符串的字節(jié)數(shù),必須這樣:
LenB(StrConv("1111徐", vbFromUnicode))
要注意哦,雖然返回值是6,但這個數(shù)與這個字符串在內(nèi)存中的實際占用字節(jié)數(shù)是不相符的哦!
Imports System.Text.RegularExpressions
'------
Dim text As String = "C:\Users\Administratorping 10.0.0.172 -n 1 Pinging 10.0.0.172 with 32 bytes of data: Reply from 10.0.0.172: bytes=32 time=122ms TTL=64 Ping statistics for 10.0.0.172: Packets: Sent = 1, Received = 1, Lost = 0 (0% loss), Approximate round trip times in milli-seconds: Minimum = 1ms, Maximum = 1ms, Average = 1ms C:\Users\Administrator"
Dim re As New Regex("(?=time=)\d+(?=ms)")
Debug.WriteLine(re.Match(text))