Simple text data parser/analyzer in Delphi

Implement using Delphi 2010 (or compatible) a function:

Procedure AnalyzeList(var input : TStringList; var output : TStringList);

Input TStringList contains text data such as the attached sample file. Most (but not all) lines of the input list contain a registry key. For example, one line of input data could be:

Foobar(HKEY_CLASSES_ROOT\[url removed, login to view]\shell\open) 1 0.000520 0.000520 0.000520 0.000520

From this data, the AnalyzeList function must extract all the registry keys (e.g. "HKEY_CLASSES_ROOT\[url removed, login to view]\shell\open") and the second numeric value (e.g. 0.000520) and list the registry keys to the output list sorted by the numeric value starting with the biggest values.

For example, lets say the input is:

Foobardfsds (HKEY_CLASSES_ROOT\[url removed, login to view]\shell\open) 1 0.000520 fds 0.000520 0.000520 0.000520

foo

Foobar(HKEY_CLASSES_ROOT\*\) 112 143.000520 0.000520 0.000520 0.000520 432432

gdfd (HKEY_CLASSES_ROOT\[url removed, login to view]\shell\) 2 0.008520 0.000520 0.000520 0.000520

e43543242

Foobar(HKEY_CLASSES_ROOT\[url removed, login to view]\) 43 1.000520 43424 0.000520 0.000520 0.000520

In this case the output would be:

143.000520 HKEY_CLASSES_ROOT\*\

001.000520 HKEY_CLASSES_ROOT\[url removed, login to view]\

000.008520 HKEY_CLASSES_ROOT\[url removed, login to view]\shell\

000.000520 HKEY_CLASSES_ROOT\[url removed, login to view]\shell\open

Only make a bid if you can do this right now. This is a simple job and should not take more than 30 minutes to code.

Delphi

Project ID: #4444629

About the project