Merge a line with an other line 3 lines above?

[hamilton]

From time to time I get stucked in problems that I cant solve on my own. The good thing is that I have always got help on this forum, and I hope that somone can help me with this problem too.

I have a log- file that contains several "warnings" and "fails", the problem is that the warning/fail does not connect to the "string" which is 3 lines above, so the information is no good for further actions.

What I'm trying to do is to find all the warnings/Fails, which always starts with A: or F: - then I whant to hook this up with the "string" 3 lines above.
Maybe the example explains this better.

* 5120061206xX99999Www9999261A288887  navnn       2001390000932294346navn
* navn                 adre 11                       4515100210119200612
* 06322 00243001830003222014500K113000050400                    0000000000000
* A:8208 Ufullstendige data om
*    Dette medfører at kun dato vvvvvvvvvvvvvvvvvv utland leses inn
*    merke: xxxxxxx vvvvvvv.nr Www2200261A299907 Dato

What I'm hoping for is to find/create a macro that searches for all A: and F: in a file, and then put them together in one string, line by line like this

A:8208 Ufullstendige data om 5120061206xX99999Www9999261A288887  navnn       2001390000932294346navn
F:1500   example example      5211111111111111111111111111111111
A:15000 example                   5122222222222222222222222222222222

[Mofi]

The macro property Continue if a Find with Replace not found must be checked for this macro.

InsertMode
ColumnModeOff
HexOff
UnixReOff
Bottom
IfColNumGt 1
"
"
EndIf
Top
Clipboard 9
ClearClipboard
Loop
Find MatchCase RegExp "%^* [AF]:[0-9]+*$"
IfFound
StartSelect
CopyAppend
EndSelect
Key UP ARROW
Key UP ARROW
Key UP ARROW
StartSelect
SelectLine
CopyAppend
EndSelect
Key DOWN ARROW
Key DOWN ARROW
Key DOWN ARROW
Else
ExitLoop
EndIf
EndLoop
NewFile
UnicodeToASCII
UnixMacToDos
Paste
Top
Find RegExp "%^* "
Replace All ""
Find "* "
Replace All " "
ClearClipboard
Clipboard 0

Add UnixReOn or PerlReOn (v12+ of UE) at the end of the macro if you do not use UltraEdit style regular expressions by default - see search configuration. Macro command UnixReOff sets the regular expression option to UltraEdit style.

[hamilton]

Thanks alot, this macro worked just fine When I ran the macro I saw things that I haven't thought about. The length of the text after A and F is variable. Is it possible to give in a col where all of the records starts (the line 3 lines above), this would have made it easier to import the file into a database.

A:15000 texttexttexttext ---------------512006111111111111
F:3050 texttext --------------------------522006111111111111
A:8002 texttexttexttexttexttexttext----542006111111111111

Anyway thanks again for great help for a fantastic product [

[Mofi]

Same macro as above, but now with alignment on column 50.

InsertMode
ColumnModeOff
HexOff
UnixReOff
Bottom
IfColNumGt 1
"
"
EndIf
Top
Clipboard 9
ClearClipboard
Loop
Find MatchCase RegExp "%^* [AF]:[0-9]+*$"
IfFound
StartSelect
CopyAppend
EndSelect
Key UP ARROW
Key UP ARROW
Key UP ARROW
StartSelect
SelectLine
CopyAppend
EndSelect
Key DOWN ARROW
Key DOWN ARROW
Key DOWN ARROW
Else
ExitLoop
EndIf
EndLoop
NewFile
UnicodeToASCII
UnixMacToDos
Paste
Top
Find RegExp "%^* "
Replace All ""
Find "* "
Replace All "                                 "
Bottom
Key BACKSPACE
Loop 250
" "
EndLoop
Top
Loop 49
Key RIGHT ARROW
EndLoop
ColumnModeOn
StartSelect
SelectToBottom
ColumnLeftJustify
EndSelect
ColumnModeOff
Bottom
"
"
Top
TrimTrailingSpaces
ClearClipboard
Clipboard 0

The macro now replaces the string "* " with a big number of spaces. Best would be to have 50 spaces for alignment on column 50 in this string.

Next it deletes the last line termination in the file and makes the last line the longest line in the file by inserting 250 spaces at end of the file. Use a higher number if necessary.

Back at top of the file the cursor is moved to column 50 with the old method. Since UE v12.20a+2 instead of the Loop the command GotoLine 1 50 could be also used.

Now the column mode is enabled and everything from current cursor position to end of the file is selected. ColumnLeftJustify moves all strings to the column 50.

Finally column mode is turned off, the trailing spaces are removed and the last line of the file is again terminated with line termination character(s).

[hamilton]

I never got to thank you for helping me once again - The macro works just the way I hoped it would, so thank you very much