[文本处理] 云更新无盘系统怎么实现农行微信程序修改INI文件里的ID 想做个批处理

jld95810

款台号
COUNTER_NO=12863768
STRUCT_TYPE=01
RESP_ENCRYPTPAN=1
LIST_COUNT=20
SALELIST=1
SILENCERUN=0
LOGINLIST=0
VOIDLIST=1
PRINTLIST=1
REFUNDLIST=1
UNIONPAYFLAG=0
修改里面的这个12863768，我这里一共10台机子每个机子的号都不一样 。大家帮帮忙  谢谢大哥们了
mis.ini这个文件在D盘下面

Batcher

回复 1# jld95810


12863768修改成什么？
另外9台机器的这个数字分别修改成什么？

cutebe

使用前备份原文件及测试！

set id=87654321
sed -i "s/\(COUNTER_NO=\).*$/\1%id%/" "d:\mis.ini"
复制代码

本论坛下载三方工具sed.exe

jld95810

12863768，下个机子就是12863767或者12863766农行一共给了10个号，前面12863是不变的

jld95810

这10号都是固定的

jld95810

大哥能写个完整的，我不太会

Batcher

回复 4# jld95810


    同一个bat脚本需要在10个不同的机器上运行吗？还是在同一个机器上运行生产10个不同的ini文件？

cutebe

各台机子单独运行？还是服务器分发？
若各机运行是靠什么区分，是IP还是MAC？
若服务器分发是直接分发ini，还是分发bat后各机自动运行？

::根据IP更改配置文件中ID
@echo off
setlocal enableDelayedExpansion

set ip1=192.168.1.20
set ip2=192.168.1.19
set ip3=192.168.1.18
set ip4=192.168.1.17
set ip5=192.168.1.16
set ip6=192.168.1.15
set ip7=192.168.1.14
set ip8=192.168.1.13
set ip9=192.168.1.12
set ip10=192.168.1.11
set "id1=12863768"
set "id2=12863767"
set "id3=12863766"
set "id4=12863765"
set "id5=12863764"
set "id6=12863763"
set "id7=12863762"
set "id8=12863761"
set "id9=12863760"
set "id10=12863759"

::识别IP
call :getIP pcip
::set "pcip=192.168.1.18"	::假设

::更改ID
for /l %%i in (1,1,10)do (
	if "%pcip%"=="!ip%%i!" (
		sed -i "s/\(COUNTER_NO=\).*$/\1!id%%i!/" "d:\mis.ini"
		goto :outfor
	)
)
:outfor

pause
goto :eof

:getIP gip	获取IP
请搜索相应“获取IP”代码
goto :eof
复制代码

jld95810

是10号在10台机子分别运行，一台机子一个号，你看看怎么写，服务器也行，客户端运行也，最好一开机自动识别这个每个机子的自的号

jld95810

最好通过ip和mac来识别

jld95810

客户机一起启动自动运行来识别

flashercs

脚本保存为 a.vbs

Option Explicit
On Error Resume Next

Const conINI = "D:\mis.ini" 'ini路径
Const conNIC = "vEthernet (Default Switch)" '网卡名
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim objWbemServices,fso,tsr,tsw,Element,dicNIC_ININO,mac,str
Set dicNIC_ININO = CreateObject("Scripting.Dictionary")
' MAC地址对应COUNTER_NO
dicNIC_ININO.Add "00:15:5D:62:F7:80","12863768"
dicNIC_ININO.Add "00:15:5D:62:F7:90","12863767"
dicNIC_ININO.Add "00:15:5D:62:F7:72","12863765"
dicNIC_ININO.Add "00:15:5D:62:F7:42","12863764"
dicNIC_ININO.Add "00:15:5D:62:F7:32","12863763"
dicNIC_ININO.Add "00:15:5D:62:F7:02","12863762"
dicNIC_ININO.Add "00:15:5D:62:F7:12","12863761"
dicNIC_ININO.Add "00:15:5D:62:F7:96","12863759"
dicNIC_ININO.Add "00:15:5D:62:F7:98","12863758"
dicNIC_ININO.Add "00:15:5D:62:F7:66","12863757"

Set fso = CreateObject("Scripting.FileSystemObject")
Set objWbemServices = GetObject("winmgmts:{ImpersonationLevel=Impersonate}!//./root/cimv2")
For Each Element In objWbemServices.ExecQuery("Select NetConnectionID,MACAddress From Win32_NetworkAdapter Where NetConnectionID = '" & conNIC & "'")
  mac = Element.MACAddress
Next
' WScript.Echo "mac='" & mac & "'"
If dicNIC_ININO.Exists(mac) Then
  Set tsr = fso.OpenTextFile(conINI,ForReading,False,vbUseDefault) ' ANSI encoding
  str = tsr.ReadAll
  If Err.Number <> 0 Then MyQuit
  Set tsw = fso.OpenTextFile(conINI,ForWriting,False,vbUseDefault) ' ANSI encoding
  If Err.Number <> 0 Then MyQuit
  With New RegExp
    .Global = False
    .Ignorecase = True
    .Multiline = False
    .Pattern = "(COUNTER_NO\s*=\s*).*"
    tsw.Write(.Replace(str,"$1" & dicNIC_ININO.Item(mac)))
  End With
End If

MyQuit

Sub MyQuit()
  On Error Resume Next
  If IsObject(tsw) Then
    tsw.Close
    Set tsw = Nothing
  End If
  If IsObject(tsr) Then
    tsr.Close
    Set tsr = Nothing
  End If
  Set fso = Nothing
  set dicNIC_ININO = Nothing
  Set objWbemServices = Nothing
  WScript.Quit
End Sub
复制代码

jld95810

大哥直接放到启动项就可以了吧！！！好想启动没有反应，我把我的MAC地址换上去了

cutebe

如果有ftp服务器可考虑：
-----------------------------------------------------------
条件：一、ftp服务器、客户机用固定ip；
二、下载三方sed/wget到系统目录，如%windir%！

步骤：一、ip-id对应表文件保存在ftp服务器上；
二、下载sed.exe和wget.exe两个三方程序，存入%windir%；
三、（先测试，正常后加到启动项里）每台机子上添加bat开机启动；
四、客户机开机运行bat，下载对应表。自动识别ip，根据ip修改id。

flashercs

回复 13# jld95810


    把你改后的内容贴出来。MAC地址要大写