Модератор: Модераторы
Код: Выделить всё
Function GetJSStr(Const aSource, aIndex: String): String;
Var
aPos: Integer;
Begin
aPos := Pos('"' + aIndex + '":"', aSource);
If aPos = 0 Then Exit('');
aPos := aPos + Length('"' + aIndex + '":"');
Result := Copy(aSource, aPos, PosEx('"',aSource, aPos) - aPos);
end;
Код: Выделить всё
function CStrToStr(const S: String): String;
var
j: Integer;
esc: Boolean;
b: Integer;
begin
Result:='';
j:=1;
esc:=False;
while j<=Length(S) do
begin
if esc then
begin
case S[j] of
'A','a': Result:=Result+#7;
'B','b': Result:=Result+#8;
'T','t': Result:=Result+#9;
'R','r': Result:=Result+#10;
'V','v': Result:=Result+#11;
'F','f': Result:=Result+#12;
'N','n': Result:=Result+#13;
'Q','q','"': Result:=Result+'"';
'P','p','''': Result:=Result+'''';
'0':
begin
if ((Length(S)-j)>2) and ((S[j+1]='x') or (S[j+1]='X')) then
begin
if TryStrToInt(Copy(S,j,4),b) then
Result:=Result+chr(Byte(b));
inc(j,3);
end
else
Result:=Result+#0;
end;
// '': Result:=Result+'';
else Result:=Result+S[j];
end;
esc:=False;
end
else if S[j]='' then
esc:=True
else
Result:=Result+S[j];
inc(j);
end;
if esc then
Result:=Result+'';
end;
Код: Выделить всё
function StrQuoteBetween(var Str: String; out OStr: String; const Quote: Char = '"';
const Esc: Char = '\'): Boolean;
var
j,b: Integer;
e: Boolean = False;
begin
OStr:='';
Result:=False;
if (Length(Str)<2) and (Str[1]<>Quote) then
Exit;
j:=2;
while j<=Length(Str) do
begin
if e then
begin
case Str[j] of
'A','a': OStr:=OStr+#7;
'B','b': OStr:=OStr+#8;
'T','t': OStr:=OStr+#9;
'R','r': OStr:=OStr+#10;
'V','v': OStr:=OStr+#11;
'F','f': OStr:=OStr+#12;
'N','n': OStr:=OStr+#13;
'Q','q','"': OStr:=OStr+'"';
'P','p','''': OStr:=OStr+'''';
'0':
begin
if ((Length(Str)-j)>2) and ((Str[j+1]='x') or (Str[j+1]='X')) then
begin
if TryStrToInt(Copy(Str,j,4),b) then
OStr:=OStr+chr(Byte(b));
inc(j,3);
end
else
OStr:=OStr+#0;
end;
else OStr:=OStr+Str[j];
end;
e:=False;
end
else if Str[j]=Esc then
e:=True
else if Str[j]=Quote then
begin
Result:=True;
Break;
end
else
OStr:=OStr+Str[j];
inc(j);
end;
Delete(Str,1,j);
end;