如何拆分2个字符串并插入2列

Question

我有2个字符串

Declare @WhenDetails NVarchar(Max) ='07:00:0:0;1:00:1:0;6:00:1:0;10:00:1:0;'
Declare @Dosage NVarchar(Max) ='1.00;2.00;1.00;1.00'

我需要将这两个字符串拆分并插入表中

示例07:00:0:0=>1.00 1:00:1:0=>2.00

Declare  @TempDosageWhenDetails Table (RowID INT IDENTITY(1,1), PatientMedicationID INT, Dosage NVARCHAR(Max),WhenDetails NVARCHAR(Max))
insert @TempDosageWhenDetails(Dosage)
select x.items
from dbo.Split('07:00:0:0;1:00:1:0;6:00:1:0;10:00:1:0;', ';') x

我拿了一张桌子，拆分并插入我的何时详细信息

如何填充示例中所示的剂量列？

请注意，我可能有n条记录要拆分，我仅举了一个例子。

Answer 1

可能带有一些JSON（假设2016年以后）

示例

Declare @WhenDetails NVarchar(Max) ='07:00:0:0;1:00:1:0;6:00:1:0;10:00:1:0;'
Declare @Dosage NVarchar(Max) ='1.00;2.00;1.00;1.00'

Select RowID = A.[Key]+1
      ,PatientID = null
      ,Dosage = B.[Value]
      ,WhenDetails = A.[Value]
 From (
        Select *
         From  OpenJSON( '["'+replace(@WhenDetails,';','","')+'"]' )
      ) A
 Join (
         Select *
         From  OpenJSON( '["'+replace(@Dosage,';','","')+'"]' )
      ) B
   on A.[Key]=B.[Key]

返回

RowID   PatientID   Dosage  WhenDetails
1       NULL        1.00    07:00:0:0
2       NULL        2.00    1:00:1:0
3       NULL        1.00    6:00:1:0
4       NULL        1.00    10:00:1:0

如果有助于可视化：

我们将字符串转换为JSON数组，然后根据KEY加入结果就没什么了

如果要

Select * From OpenJSON( '["'+replace(@WhenDetails,';','","')+'"]' )

结果应该是

key value       type
0   07:00:0:0   1
1   1:00:1:0    1
2   6:00:1:0    1
3   10:00:1:0   1

编辑-XML方法

Select RowID = A.RetSeq
      ,PatientID = null
      ,Dosage = B.RetVal
      ,WhenDetails = A.RetVal
 From (
        Select RetSeq = row_number() over (order by 1/0)
              ,RetVal = ltrim(rtrim(B.i.value('(./text())[1]', 'varchar(max)')))
        From  (Select x = Cast('<x>' + replace((Select replace(@WhenDetails,';','§§Split§§') as [*] For XML Path('')),'§§Split§§','</x><x>')+'</x>' as xml).query('.')) as A 
        Cross Apply x.nodes('x') AS B(i)
      ) A
 Join (
        Select RetSeq = row_number() over (order by 1/0)
              ,RetVal = ltrim(rtrim(B.i.value('(./text())[1]', 'varchar(max)')))
        From  (Select x = Cast('<x>' + replace((Select replace(@Dosage,';','§§Split§§') as [*] For XML Path('')),'§§Split§§','</x><x>')+'</x>' as xml).query('.')) as A 
        Cross Apply x.nodes('x') AS B(i)
      ) B
   on A.RetSeq=B.RetSeq