下の画像のようなテキストファイルがあります
これは、これらの 3 行を列に配置する Access Visual Basic コードです。
Sub ImportMyFile()
Const strFile As String = "C:\Users\Samuel\Desktop\new.txt"
Dim strLine As String
Dim rs As Recordset
Dim i As Byte
Set rs = CurrentDb.OpenRecordset("Table2")
Open strFile For Input As #1
Do Until EOF(1)
i = i + 1
Line Input #1, strLine
If i = 1 Then
rs.AddNew
rs!Category_NM = strLine
ElseIf i = 2 Then
rs!Activity_Nm = Mid(strLine, 10)
ElseIf i = 3 Then
rs!Class_Nm = Mid(strLine, 7)
End If
If i = 4 Or EOF(1) Then
rs.Update
i = 0
End If
Loop
Close #1
rs.Close
Set rs = Nothing
End Sub
問題は、名前が 2 つに分割された 4 行を含むセクションがいくつかあることです。たとえば、
You
Tube
package: com.google.android.youtube
class: com.google.android.youtube.app.honeycomb.Shell$HomeActivity
コードでこれをどのように説明できますか?
「Tube」を除外して「You」を残すか、「You Tube」と組み合わせる必要があります。
私は何十万ものコードを扱っており、本当に自動化が必要です。