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". thanks903Views0likes1Comment- 1.3KViews0likes0Comments
Re: 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 problemis 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 are2 parts where the files differ, theID and theDate. Can you give me an example how i can get the script to ignore the ID wich i showed in the previous post ?1.3KViews0likes3CommentsVerifying .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 :)1.4KViews0likes6Comments