質問です

下記マクロで1行目を削除するようになっていると思いますが
それを取り消すまくろに修正の仕方を教えてください

Option Explicit

Sub delTopLineSub(path As String, fname As String)
Dim buf As String
Dim fname1 As String, fname2 As String
fname1 = path & fname
fname2 = path & fname & ".$$$"
Open fname1 For Input As #1
Open fname2 For Output As #2
Line Input #1, buf '1行目読み飛ばし
Do Until EOF(1)
Line Input #1, buf
Print #2, buf
Loop
Close #1
Close #2
Kill fname1
Name fname2 As fname1
End Sub

Sub hogeRename(path As String, ext As String, pat As String)
Dim fname As String
Dim re As Object, mat As Object

fname = Dir(path & "*." & ext, vbNormal)
Set re = CreateObject("VBScript.RegExp")
With re
.Pattern = pat
.IgnoreCase = True
.Global = True
Do While fname <> ""
Set mat = .Execute(fname)
If mat.Count > 0 Then
Call delTopLineSub(path, fname)
Name path & fname As path & re.Replace(fname, "")
End If
fname = Dir()
Loop
End With
Set mat = Nothing
Set re = Nothing
End Sub

Sub main31()
Call hogeRename("C:\test-do\", "txt", "^[0-9]{2}\-")
End Sub

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/04/02 17:30:29
  • 終了:2013/04/02 18:18:55

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982013/04/02 17:33:38

ポイント100pt

Line Input #1, buf '1行目読み飛ばし

の行を 削除すればいいでしょう。

id:inosisi4141

ありがとうございました
何度もお手数おかけして申し訳ありませんでした
助かりました

2013/04/02 18:18:40

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません