需求:我有兩個文本,一個是累計明細,一個是日明細,我想使用一個陳述句,執行后能截取日明細的每行前6位,再添加上“|”+“當天日期”如20201015,復制到累計明細表后面。
原陳述句:
Sub demo()
Dim temp As String
Open "C:\Users\日明細.txt" For Input As #1
Open "C:\Users\累計明細.txt" For Append As #2
Line Input #1, temp
Do Until EOF(1)
Line Input #1, temp
Print #2, Left(temp, 6) & "|" & Format(Date, "yyyymmdd")
Loop
Close #1, #2
End Sub
哪大神能幫忙改成VS2013上能用的陳述句嗎?
轉載請註明出處,本文鏈接:https://www.uj5u.com/net/205234.html
標籤:VB.NET
