update tb
set code='1001'+substring(code,5,1024)
where left(code,4)='0001'

如果'0001'不是位于前4位，也能sql替换，不过麻烦一点