Initial commit - Delphi MES client project
This commit is contained in:
Developer
@@ -0,0 +1,281 @@
|
||||
unit uFile3Json;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.Classes, System.SysUtils, System.JSON, System.RegularExpressions, StrUtils;
|
||||
|
||||
type
|
||||
TWaterData = record
|
||||
DataValue: Integer;
|
||||
Status: string;
|
||||
ID: string;
|
||||
HasData: Boolean;
|
||||
end;
|
||||
|
||||
TFileMonitor = class
|
||||
private
|
||||
FInWaterData: TWaterData;
|
||||
FOutWaterData: TWaterData;
|
||||
FDebugInfo: TStringList;
|
||||
function ExtractID(const Line: string): string;
|
||||
function ExtractStatus(const Line: string): string;
|
||||
function ExtractData(const Line: string): string;
|
||||
function ExtractLastValue(const DataStr: string): Integer;
|
||||
procedure AddDebugInfo(const Info: string);
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
function ProcessFileContent(const Content: TStringList): string;
|
||||
property DebugInfo: TStringList read FDebugInfo;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
constructor TFileMonitor.Create;
|
||||
begin
|
||||
inherited;
|
||||
FDebugInfo := TStringList.Create;
|
||||
FInWaterData.HasData := False;
|
||||
FOutWaterData.HasData := False;
|
||||
end;
|
||||
|
||||
destructor TFileMonitor.Destroy;
|
||||
begin
|
||||
FDebugInfo.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TFileMonitor.AddDebugInfo(const Info: string);
|
||||
begin
|
||||
FDebugInfo.Add(Info);
|
||||
end;
|
||||
|
||||
function TFileMonitor.ExtractID(const Line: string): string;
|
||||
var
|
||||
StartPos, EndPos: Integer;
|
||||
begin
|
||||
Result := '';
|
||||
StartPos := Pos('ID：', Line);
|
||||
if StartPos > 0 then
|
||||
begin
|
||||
EndPos := PosEx(',', Line, StartPos);
|
||||
if EndPos > StartPos then
|
||||
Result := Copy(Line, StartPos + 3, EndPos - StartPos - 3)
|
||||
else
|
||||
Result := Copy(Line, StartPos + 3, MaxInt);
|
||||
|
||||
AddDebugInfo('提取ID: ' + Result);
|
||||
end
|
||||
else
|
||||
begin
|
||||
AddDebugInfo('未找到ID');
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFileMonitor.ExtractStatus(const Line: string): string;
|
||||
var
|
||||
StartPos, EndPos: Integer;
|
||||
begin
|
||||
Result := '';
|
||||
StartPos := Pos('卡关：', Line);
|
||||
if StartPos > 0 then
|
||||
begin
|
||||
StartPos := StartPos + 3;
|
||||
EndPos := Length(Line);
|
||||
Result := Copy(Line, StartPos, EndPos - StartPos + 1);
|
||||
Result := Trim(Result);
|
||||
AddDebugInfo('提取状态: ' + Result);
|
||||
end
|
||||
else
|
||||
begin
|
||||
AddDebugInfo('未找到状态');
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFileMonitor.ExtractData(const Line: string): string;
|
||||
var
|
||||
StartPos, EndPos: Integer;
|
||||
begin
|
||||
Result := '';
|
||||
StartPos := Pos('[', Line);
|
||||
EndPos := Pos(']', Line);
|
||||
if (StartPos > 0) and (EndPos > StartPos) then
|
||||
begin
|
||||
Result := Copy(Line, StartPos + 1, EndPos - StartPos - 1);
|
||||
AddDebugInfo('提取数据: ' + Result);
|
||||
end
|
||||
else
|
||||
begin
|
||||
AddDebugInfo('未找到数据');
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFileMonitor.ExtractLastValue(const DataStr: string): Integer;
|
||||
var
|
||||
Values: TStringList;
|
||||
LastValue: string;
|
||||
I: Integer;
|
||||
begin
|
||||
Result := 0;
|
||||
Values := TStringList.Create;
|
||||
try
|
||||
Values.Delimiter := ',';
|
||||
Values.StrictDelimiter := True;
|
||||
Values.DelimitedText := DataStr;
|
||||
|
||||
AddDebugInfo('数据分割结果: ' + IntToStr(Values.Count) + ' 个值');
|
||||
|
||||
// 从后往前找第一个有效的数值
|
||||
for I := Values.Count - 1 downto 0 do
|
||||
begin
|
||||
LastValue := Trim(Values[I]);
|
||||
AddDebugInfo('检查值: ' + LastValue);
|
||||
|
||||
if TryStrToInt(LastValue, Result) then
|
||||
begin
|
||||
AddDebugInfo('找到有效值: ' + IntToStr(Result));
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
AddDebugInfo('未找到有效数值');
|
||||
finally
|
||||
Values.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TFileMonitor.ProcessFileContent(const Content: TStringList): string;
|
||||
var
|
||||
I: Integer;
|
||||
Line, CurrentID, Status, DataStr: string;
|
||||
LastValue: Integer;
|
||||
LastID: string;
|
||||
RootObj: TJSONObject;
|
||||
InWaterDataArray, OutWaterDataArray: TJSONArray;
|
||||
HasInWater, HasOutWater: Boolean;
|
||||
begin
|
||||
AddDebugInfo('开始处理文件内容');
|
||||
|
||||
// 初始化
|
||||
LastID := '';
|
||||
FInWaterData.HasData := False;
|
||||
FOutWaterData.HasData := False;
|
||||
HasInWater := False;
|
||||
HasOutWater := False;
|
||||
|
||||
// 处理每一行
|
||||
for I := 0 to Content.Count - 1 do
|
||||
begin
|
||||
Line := Content[I];
|
||||
AddDebugInfo('处理行 ' + IntToStr(I) + ': ' + Line);
|
||||
|
||||
CurrentID := ExtractID(Line);
|
||||
|
||||
// 如果ID为空，跳过
|
||||
if CurrentID = '' then
|
||||
Continue;
|
||||
|
||||
// 记录最后一个ID
|
||||
LastID := CurrentID;
|
||||
|
||||
Status := ExtractStatus(Line);
|
||||
|
||||
// 检查是否是入水距离值
|
||||
if (Pos('入水距离值', Line) > 0) then
|
||||
begin
|
||||
AddDebugInfo('找到入水距离值');
|
||||
DataStr := ExtractData(Line);
|
||||
if DataStr <> '' then
|
||||
begin
|
||||
LastValue := ExtractLastValue(DataStr);
|
||||
|
||||
// 只保留状态为"合格"的数据
|
||||
// if Status = '合格' then
|
||||
begin
|
||||
AddDebugInfo('入水距离状态合格，记录数据');
|
||||
FInWaterData.DataValue := LastValue;
|
||||
FInWaterData.Status := Status;
|
||||
FInWaterData.ID := CurrentID;
|
||||
FInWaterData.HasData := True;
|
||||
HasInWater := True;
|
||||
end
|
||||
// else
|
||||
// begin
|
||||
// AddDebugInfo('入水距离状态不合格: ' + Status);
|
||||
// end;
|
||||
end;
|
||||
end
|
||||
// 检查是否是出水距离值
|
||||
else if (Pos('出水距离值', Line) > 0) then
|
||||
begin
|
||||
AddDebugInfo('找到出水距离值');
|
||||
DataStr := ExtractData(Line);
|
||||
if DataStr <> '' then
|
||||
begin
|
||||
LastValue := ExtractLastValue(DataStr);
|
||||
|
||||
// 只保留状态为"合格"的数据
|
||||
// if Status = '合格' then
|
||||
begin
|
||||
AddDebugInfo('出水距离状态合格，记录数据');
|
||||
FOutWaterData.DataValue := LastValue;
|
||||
FOutWaterData.Status := Status;
|
||||
FOutWaterData.ID := CurrentID;
|
||||
FOutWaterData.HasData := True;
|
||||
HasOutWater := True;
|
||||
end
|
||||
// else
|
||||
// begin
|
||||
// AddDebugInfo('出水距离状态不合格: ' + Status);
|
||||
// end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
AddDebugInfo('处理完成，最后ID: ' + LastID);
|
||||
AddDebugInfo('入水数据有效: ' + BoolToStr(HasInWater, True));
|
||||
AddDebugInfo('出水数据有效: ' + BoolToStr(HasOutWater, True));
|
||||
|
||||
RootObj := TJSONObject.Create;
|
||||
try
|
||||
// 添加合并ID（如果需要）
|
||||
if FInWaterData.ID<>'' then
|
||||
RootObj.AddPair('ID', FInWaterData.ID) // 或者根据需求选择
|
||||
else
|
||||
RootObj.AddPair('ID', FOutWaterData.ID); // 或者根据需求选择
|
||||
|
||||
// 添加入水数据
|
||||
if HasInWater then
|
||||
begin
|
||||
RootObj.AddPair('距离', TJSONNumber.Create(FInWaterData.DataValue));
|
||||
// RootObj.AddPair('入水ID', FInWaterData.ID);
|
||||
RootObj.AddPair('入水卡关状态', FInWaterData.Status);
|
||||
AddDebugInfo('添加入水数据: ' + IntToStr(FInWaterData.DataValue));
|
||||
end
|
||||
else
|
||||
begin
|
||||
AddDebugInfo('无有效入水数据');
|
||||
end;
|
||||
|
||||
// 添加出水数据
|
||||
if HasOutWater then
|
||||
begin
|
||||
RootObj.AddPair('出水距离', TJSONNumber.Create(FOutWaterData.DataValue));
|
||||
// RootObj.AddPair('出水ID', FOutWaterData.ID);
|
||||
RootObj.AddPair('卡关', FOutWaterData.Status);
|
||||
AddDebugInfo('添加出水数据: ' + IntToStr(FOutWaterData.DataValue));
|
||||
end
|
||||
else
|
||||
begin
|
||||
AddDebugInfo('无有效出水数据');
|
||||
end;
|
||||
|
||||
Result := RootObj.ToString;
|
||||
AddDebugInfo('最终结果: ' + Result);
|
||||
finally
|
||||
RootObj.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user