Innovation
New Contributor
Joined 9 years ago
User Profile
User Widgets
Contributions
SetLocalInfo help needed
Hello, i want to change (marked in the picture) the "UserDefaultLangID" but i can´t get it working. I am able to change date and time but Windows gets buggy when i change the date to T. MMM JJJJ wich is not in the "Format: Englisch (USA)". This is the script i´m using for changing the date and time. procedure RegionalChangeS1; var i:integer; begin //aqEnvironment.GetLocaleInfo(LOCALE_USER_DEFAULT,LANGID,i); //SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_LANGID, 'de'); SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE,'TT/MM/JJJJ'); SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLONGDATE,'TTTT, T. MMMM JJJJ'); SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIME,'HH:mm'); SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ITIME,'hh:mm:ss'); //ShowMessage('i'); end; pls help me change the "Format". thanksRe: Verifying .Pix Files with variable Parts
I'm sorry for my bad explanation i was in a hurry yeserday. I didn't know that .pix was common for images and i'm trying to compare XML data. The problem is that i don't know what i have to insert in this line regEx.Expression := '(?i)\d{1,2}.\d{1,2}.\d{2,4}\s\d{1,2}:\d{2}:\d{2}\w{2}'; No matter what i try i end up with the result that the files are equal even when they are not equal. There are 2 parts where the files differ, the ID and the Date. Can you give me an example how i can get the script to ignore the ID wich i showed in the previous post ?Verifying .Pix Files with variable Parts
Hello Smartbearcommunity, i'm trying to verifying 2 .pix files and in thispix files the "id" is changing. How do i get my script working? Example PIX File File1 <? xml version"1.0! encoding="UTF-8"?><!--comment--><METADATA><CONSIGNOR AppVersion="xx.xx.xx" DBStructure="4.0" ID="123"/></METADATA> File 2 <? xml version"1.0! encoding="UTF-8"?><!--comment--><METADATA><CONSIGNOR AppVersion="xx.xx.xx" DBStructure="4.0" ID="456"/></METADATA> my DelphiScript function CompareFiles(fileName1, fileName2); const ForReading = 1; var fso, regEx; file1, file2; fileText1, fileText2, newText1, newText2; begin // Creates the FileSystemObject object fso := Sys.OleObject('Scripting.FileSystemObject'); // Reads the first text file file1 := fso.OpenTextFile(fileName1, ForReading); fileText1 := file1.ReadAll; file1.Close; // Reads the second text file file2 := fso.OpenTextFile(fileName1, ForReading); fileText2 := file2.ReadAll; file2.Close; // Creates the regular expression object regEx := HISUtils.RegExpr; // Specifies the pattern for the date/time mask // MM/DD/YYYY HH:MM:SSLL (for example: 4/25/2006 10:51:35AM) regEx.Expression := '(?i)\d{1,2}.\d{1,2}.\d{2,4}\s\d{1,2}:\d{2}:\d{2}\w{2}'; // Replaces the text matching the specified date/time format with <ignore> newText1 := regEx.Replace(fileText1, '<ignore>'); newText2 := regEx.Replace(fileText2, '<ignore>'); // Compares the text Result := (newText1 = newText2); end; procedure CompareMethodVersuch1; var fileName1, fileName2; begin fileName1 := 'C:\Users\Admin\Desktop\MasterReport.pix'; fileName2 := 'C:\Users\Admin\Desktop\MasterReport2.pix'; if CompareFiles(fileName1, fileName2) then Log.Message('The files are equal') else Log.Error('The files are different'); end; I'm using this Example https://support.smartbear.com/testcomplete/docs/testing-with/checkpoints/files/comparing-with-variable-parts.html I think i have to change this line of code "regEx.Expression := '(?i)\d{1,2}.\d{1,2}.\d{2,4}\s\d{1,2}:\d{2}:\d{2}\w{2}';" best regards :)
