create FUNCTION [dbo].[Split](@String varchar(8000), @Delimiter char(1))
returns @temptable TABLE (a varchar(8000))
as
begin
    declare @idx int
    declare @slice varchar(8000)
    select @idx = 1
          if len(@String)<1 or @String is null return
    while @idx!= 0
    begin
        set @idx =charindex(@Delimiter,@String)
        if @idx!=0
            set @slice =left(@String,@idx - 1)
        else
            set @slice = @String
        if(len(@slice)>0)
            insert into @temptable(a)values(@slice)
        set @String =right(@String,len(@String)- @idx)
        if len(@String)= 0 break
    end
return
end

调试笔记

declare @s nvarchar(MAX) ='{"data":[{"CreateOrg":-1,"CreateTime":"2021-08-01 00:00:00","CreateUser":2,"EditingUser":0,"LastEditTime":"2022-05-31 23:28:35","LastEditUser":2,"LockStatus":"","RecordID":99,"ReportStatus":"","WorkflowStatus":"","core":"D3","v":"6.3.4.2","上次关账日":"2021-07-30 00:00:00","入库超限率":"0.05","出库超限率":"0.03","启动批次":1,"启动提前调拨":1,"启动检验":1,"当前账期":"2021-08","科目分隔符":"/","订单审核金额":"100000.00","默认显示区间":60,"默认组织":""}],"status":0}'
select left(a, charindex(':', a)-1) --2.取分号左边
from dbo.Split(@s, ',')  --1.逗号拆分
select replace(left(a, charindex(':', a)-1), '"', '') --3.替换双引号成空
from dbo.Split(replace(@s, '{', '') ,',')  --4.把开始@s的{替换成空

拆分取第N个段

declare  @s nvarchar(MAX)='1000031@240116016@2024011600002@1'
select dbo.fSplitN(@s , '@', 3)

在格子中同样适用