VBå¯ä»¥ä½¿ç¨äºè¿å¶æ¹å¼æå¼ææ¬æ件ï¼ä»¥Get è¯å¥è¯»å°åèæ°ç»ï¼å使ç¨StrConv å½æ°å°å
¶è½¬æ¢ä¸ºå符串ï¼èå使ç¨Splitå½æ°ææ¬çå符串æ°ç»åæ»å¥æ°ï¼ä½¿ç¨InputBox å½æ°æ¥è¾å
¥éè¦è¯»æè¡ææ¬ã
Get è¯å¥
å°ä¸ä¸ªå·²æå¼çç£çæ件读å
¥ä¸ä¸ªåéä¹ä¸ã
StrConv å½æ°
è¿åææå®ç±»å转æ¢ç Variant (String)ã
Splitå½æ°
è¿åä¸ä¸ªä¸æ ä»é¶å¼å§çä¸ç»´æ°ç»ï¼å®å
å«æå®æ°ç®çåå符串ã
InputBox å½æ°
å¨ä¸å¯¹è¯æ¡æ¥ä¸æ¾ç¤ºæ示ï¼çå¾
ç¨æ·è¾å
¥æ£æææä¸æé®ï¼å¹¶è¿åå
å«ææ¬æ¡å
容ç Stringã
以ä¸æ¯ä½¿ç¨ä¸è¿°å½æ°ççå
·ä½ä»£ç ï¼
Private Sub Command3_Click()
Dim strWj As String
Dim strJ() As String
Dim aryContent() As Byte
Dim i As Long
Dim j As Long
CommonDialog1.CancelError = True ' 设置âCancelErrorâ为 True
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置æ å¿
' 设置è¿æ»¤å¨
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
CommonDialog1.FilterIndex = 2 ' æå®ç¼ºççè¿æ»¤å¨
CommonDialog1.ShowOpen ' æ¾ç¤ºâæå¼â对è¯æ¡
' æ¾ç¤ºéå®æ件çåå
'MsgBox CommonDialog1.FileName
Open CommonDialog1.FileName For Binary As #1
ReDim aryContent(LOF(1) - 1)
Get #1, , aryContent
Close #1
strWj = StrConv(aryContent, vbUnicode)
Text1 = strWj
strJ = Split(strWj, vbCrLf)
i = UBound(strJ)
Text2 = i + 1
j = InputBox("è¾å
¥éè¦æ¾ç¬¬å å¥", j)
j = j - 1
Label1.Caption = j + 1 & "ï¼" & strJ(j)
Exit Sub
ErrHandler:
' ç¨æ·æäºâåæ¶âæé®
Exit Sub
End Sub
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/54fbb2fb43166d22a043640b432309f79052d27d?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)