kazuoさん

お世話になります、コードありがとうございました。
掲載したデータで確認したところ動作は完璧でした。
ここでまた説明不足で申し訳ありません。
実際のデータには[]がありません。わかりやすくと思い私が付けてしまいました。
変更箇所は
3行目は1文字目
7行目は1文字目、2文字目,3文字目,5文字目
9行目は2文字目
となります。本当に申し訳ありません。
それと�AsRep = Split("1 2 3 4")部分を変数対応したいです。
AAA(3)という変数を使いたく、上記のコードを
sRep = Split(AAA(0) AAA(1) AAA(2) AAA(3))
としたらエラーになってしまいました。
どのように直したらよいかも教えて下さい。
どうぞ宜しくお願い致します。

失礼、カンマ区切りがあるとExcel経由でcsvはダブルコーテーションが付いてしまいダメですね。

    
Sub 上書き()
    Dim fileName
    Dim ss As String
    Dim s() As String
    Dim i As Long, j As Long
    Dim sRep()  As String, s7() As String
    
    sRep = Split("1 2 3 4") '7行目変更後の数値を半角スペース区切りで
    
    fileName = Application.GetOpenFilename("バッチファイル,*.bat")
    If fileName = False Then Exit Sub
    
    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        '読み込み
        .LoadFromFile fileName
        ss = .readtext
        
        '変更
        s = Split(ss, vbCrLf)   'splitは0ベースなので分り易く？　-1を書いています
        s(3 - 1) = "5,[" & Split(s(3 - 1), "[")(1)  '3行目を5 に変更
        s(9 - 1) = Split(s(9 - 1), "]")(0) & "],0"  '9行目を0に変更
        s7 = Split(s(7 - 1), ",")                   '7行目をsRepリストに変更
        For i = 0 To UBound(sRep)
            Do Until Not s7(j) Like "[[]*"      '[*以外を置き換え
                j = j + 1
                If UBound(s7) < j Then
                    MsgBox "リプレースリスト　sRep　の指定ミスが考えられます"
                    Exit Sub
                End If
            Loop
            s7(j) = sRep(i)
            j = j + 1
        Next
        s(7 - 1) = Join(s7, ",")
        ss = Join(s, vbCrLf)
        
        '上書き
        .Position = 0
        .writetext ss, 0
        .savetoFile fileName, 2
        .Close
    End With
End Sub

>確認したところ、「Windows(CRLF) UTF-8」とありました。
もちろん、ファイルi/oで作成可能ですが、
これならexcelでも編集可能です。
時間が取れないので、
Excelへの読み込みと書き込み後.batに名前変更のみとりあえず乗せます。

Sub 読み込み()
    Dim fileName
    fileName = Application.GetOpenFilename("バッチファイル,*.bat")
    If fileName = False Then Exit Sub
    FileCopy fileName, CurDir & "\しの.csv"
    Workbooks.Open CurDir & "\" & "しの.csv"
End Sub

Sub 書き込み()
    Workbooks("しの.csv").Close True
    On Error Resume Next
    Kill CurDir & "\" & "しの.bat"
    On Error GoTo 0
    Name CurDir & "\" & "しの.csv" As CurDir & "\" & "しの.bat"
    MsgBox CurDir & "\" & "しの.bat" & vbCrLf & "として保存しました"
End Sub

何度もすみません。
9行目が間違っていたので再掲します。

行数	変更前	変更後
1	/AAA	/AAA
2	/BBB	/BBB
*3	3,[9]	5,[9]
4	/CCC	/CCC
5	1,2,b3-6	1,2,b3-6
6	/DDD	/DDD
*7	0,0,0,[0],0,[0]	1,2,3,[0],4,[0]
8	/EEE	/EEE
*9	[1],4	[1],0


宜しくお願い致します。

図が見づらくすみません。


行数	変更前	変更後
1	/AAA	/AAA
2	/BBB	/BBB
*3	3,[9]	5,[9]
4	/CCC	/CCC
5	1,2,b3-6	1,2,b3-6
6	/DDD	/DDD
*7	0,0,0,[0],0,[0]	1,2,3,[0],4,[0]
8	/EEE	/EEE
*9	[1],4	[1],4


宜しくお願い致します。

次のようなデータがあります。

行数	変更前	変更後
1	/AAA	/AAA
2	/BBB	/BBB
*3	3,[9]	5,[9]
4	/CCC	/CCC
5	1,2,b3-6	1,2,b3-6
6	/DDD	/DDD
*7	0,0,0,[0],0,[0]	1,2,3,[0],4,[0]
8	/EEE	/EEE
*9	[1],4	[1],4

行数に米印がある３，７，９行目たちを
[]のデータはそのままで、それ以外の値を
変更後のように編集して上書き保存したいです。
どのような方法がありますか？
宜しくお願い致します。