quocthan92
Thành viên mới
- Tham gia
- 23/3/17
- Bài viết
- 34
- Được thích
- 0
Private Sub GPE()
Dim myFile As String, textSr As String, textMd As String, textline As String, posLat As Integer, posLong As Integer
myFile = "C:\Pass.txt"
textSr = ""
textMd = ""
Open myFile For Input As #1
Do Until EOF(1)
Line Input #1, textline
If InStr(textline, "SerialNumber[") <> 0 Then textSr = Right(textline, Len(textline) - InStr(textline, "SerialNumber[") + 1)
If InStr(textline, "ModelCode:") <> 0 Then textMd = Right(textline, Len(textline) - InStr(textline, "ModelCode:") + 1)
Loop
Close #1
If textSr <> "" Then
posLat = InStr(textSr, "SerialNumber[")
Range("A1").Value = Mid(textSr, posLat + 13, InStr(textSr, "]") - (posLat + 13))
End If
If textMd <> "" Then
posLong = InStr(textMd, "ModelCode:")
Range("A2").Value = Mid(textMd, posLong + 10, InStr(textMd, ",") - (posLong + 10))
End If
End Sub
Sub GPE()
Dim myFile As String, textSr As String, textMd As String, textline As String, posLat As Integer, posLong As Integer
Dim k As Long, i As Long
myFile = "C:\Pass.txt"
textSr = "": textMd = ""
i = 0: kl = 0
Open myFile For Input As #1
Do Until EOF(1)
Line Input #1, textline
If InStr(textline, "SerialNumber[") <> 0 Then
textSr = Right(textline, Len(textline) - InStr(textline, "SerialNumber[") + 1)
posLat = InStr(textSr, "SerialNumber[")
k = k + 1
Range("A" & k).Value = Mid(textSr, posLat + 13, InStr(textSr, "]") - (posLat + 13))
End If
If InStr(textline, "ModelCode:") <> 0 Then
textMd = Right(textline, Len(textline) - InStr(textline, "ModelCode:") + 1)
posLong = InStr(textMd, "ModelCode:")
i = i + 1
Range("B" & i).Value = Mid(textMd, posLong + 10, InStr(textMd, ",") - (posLong + 10))
End If
Loop
Close #1
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2