7,785
社区成员




Dim PMID() As String, PMPS() As String
Private Sub Command1_Click()
Dim strLine As String, strTmp() As String, bytTmp() As Byte
Dim n As Long
'check the length of the txt file
Open "c:\test\test\tmp\testdata.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strLine
n = n + 1
Loop
Close #1
ReDim PMID(n - 1)
ReDim PMPS(n - 1)
n = 0
Open "c:\test\test\tmp\testdata.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strLine
If Trim(strLine) > " " Then
Do While InStr(strLine, Space(2)) > 0
strLine = Replace(strLine, Space(2), Space(1))
Loop
strLine = Replace(strLine, Space(1), vbTab)
strTmp = Split(strLine, vbTab)
PMID(n) = strTmp(0)
PMPS(n) = strTmp(1)
Else
PMID(n) = ""
PMPS(n) = ""
End If
n = n + 1
Loop
Close #1
For n = 0 To UBound(PMID)
Debug.Print "PMID" & CStr(n + 1) & " = " & PMID(n), "PMPS" & CStr(n + 1) & " = " & PMPS(n)
Next n
End Sub
PMID1 = bbXyJoFm PMPS1 = lz7YFB6u
PMID2 = PMPS2 =
PMID3 = iqAIZGbt PMPS3 = 5p14on
PMID4 = VOtVgmxD PMPS4 = 4mmqvI4F
PMID5 = zMBfwzz8 PMPS5 = OHcMg
PMID6 = HfjWeo9C PMPS6 = A69vgRSf
PMID7 = Xdyd0f4G PMPS7 = LbHz3oSf
PMID8 = x4rydoeR PMPS8 = EXTUFgRn
PMID9 = wIY0iS PMPS9 = C9EEbGHM
PMID10 = eaOQHlQi PMPS10 = uTg4Qd
PMID11 = SJrdNldT PMPS11 = mWxFebmg
PMID12 = mFmV3pg PMPS12 = YEIqctZU
PMID13 = Fxx76giB PMPS13 = jhkW769p
PMID14 = j63Hz4jI PMPS14 = AxCQ33N9
PMID15 = c7UP07nX PMPS15 = i40xu3Gu
PMID16 = PMPS16 =
PMID17 = mmyCWnwt PMPS17 = 19fOdvcK
PMID18 = ULcttpYI PMPS18 = yMtBemsJ
PMID19 = PTaNwd PMPS19 = hlqMAfRi
PMID20 = 2EI0158j PMPS20 = r7FE4Smw
PMID21 = s4uTYMs4 PMPS21 = FmB6StW
PMID22 = AtxthU6C PMPS22 = UYaWBiOj
PMID23 = aZT5c9H9 PMPS23 = thu7rZGo
PMID24 = tO9qrEmQ PMPS24 = CHaIeU
PMID25 = vO9iizmE PMPS25 = PMzcr0Ju
PMID26 = PMPS26 =
PMID27 = uro5IK PMPS27 = rn74yAJK
PMID28 = H01MlbVn PMPS28 = wpHlNrwf
PMID29 = ZE5wvCi0 PMPS29 = 6aPZL
PMID30 = Nfdcwugm PMPS30 = Ox8HZd9r
PMID31 = lzEj8IJy PMPS31 = a54mCQwE
PMID32 = Hb7JEj PMPS32 = dYvbu3YE
PMID33 = 5oy1IF2h PMPS33 = Dq6qND7I
PMID34 = DdMbx7sQ PMPS34 = pWUudHem
PMID35 = RnT67VlZ PMPS35 = 0UOXuxpD
PMID36 = oTc6k PMPS36 = POWGDL0r
PMID37 = DU2oJTUB PMPS37 = S5GKjsm
PMID38 = ebDASW7J PMPS38 = iWKIk2lP
PMID39 = bx9ltK71 PMPS39 = ndjKyyQQ
PMID40 = 0c44PR PMPS40 = 2rZQmp
PMID41 = zadUWe9W PMPS41 = roVNP7ao
PMID42 = gd63gQJH PMPS42 = dz2NEfbT
PMID43 = pp7Hp4Xa PMPS43 = axvqZbEr
PMID44 = cfBKj PMPS44 = 3ZKZyYDr
PMID45 = dQLyrBPP PMPS45 = asf789
PMID46 = uro5IK PMPS46 = rn74yAJK
PMID47 = H01MlbVn PMPS47 = wpHlNrwf
PMID48 = ZE5wvCi0 PMPS48 = 6aPZL
PMID49 = Nfdcwugm PMPS49 = Ox8HZd9r
PMID50 = 5465456 PMPS50 = jioert75