1

下の画像のようなテキストファイルがあります

ここに画像の説明を入力

これは、これらの 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」と組み合わせる必要があります。

私は何十万ものコードを扱っており、本当に自動化が必要です。

4

1 に答える 1