Private Sub Command1_Click()Dim Text As StringDim LinebyLine() As StringDim i As LongDim FileNumber As IntegerFileNumber = FreeFile()Open C:\text.txt For Input As #FileNumberDo Until EOF(FileNumber)Line Input #FileNumber, TextLoopClose #FileNumberFor i = LBound(LinebyLine) To UBound(LinebyLine)LinebyLine = Split(Text, vbCrLf)If LinebyLine(i) Like ???? ???? ???? Then
MsgBox Split(LinebyLine(i), )(2)End IfNext
End Sub단순 메모장에서 데이터불러와서 일정한데이터만 띄우는걸 할려고하는데요 이렇게 뭐가문제일까요... 도와주세요... 이거하나하는데 벌써일주일이..제가 코딩할줄을몰라 여기저기 갖다붙혓는데... 아.... 너무안풀리네요..고수님들 부탁드려요
한번보시구 이상한거나 오류있으면좀 잡아주세요. 부탁드립니다!
미나 2025.10.04 댓글 2
천사 2025.10.04
일단, TextBody에 문자열을 삽입, 저장해주셔야 합니다.
상1큼한렩 2025.10.04
Private Sub Command1_Click()
Dim TextBody As String
Dim LinebyLine() As String
Dim i As Long
Dim FF As Integer
FF = FreeFile
Open \C:\\text.txt\ For Input As #FF
Do Until EOF(FF)
Line Input #FF, TextBody
Loop
Close #FF
For i = LBound(LinebyLine) To UBound