Tapatalk

Merging 2 Lists

Merging 2 Lists

19
Basic UserBasic User
19

    Jun 25, 2006#1

    Hi,
    I've got 2 lists with several colums and I want to merge them in the following way. Is this somehow possible with UE, or do I have to use other software (Excel,..) or programming language (Visual Basic, Perl)?
    note: The names of List1 are less than in List2, cause they are just a subset.

    List 1:
    name1 TAB address1 TAB phone1
    name3 TAB address3 TAB phone3
    name4 TAB address4 TAB phone4
    name6 TAB address6 TAB phone6

    List 2:
    name1 TAB email1
    name2 TAB email2
    name3 TAB email3
    ....
    name6 TAB email6

    Merged List:
    name1 TAB address1 TAB phone1 TAB email1
    name3 TAB address3 TAB phone3 TAB email3
    name4 TAB address4 TAB phone4 TAB email4
    name6 TAB address6 TAB phone6 TAB email6
    6,685587
    Grand MasterGrand Master
    6,685587

      Jun 26, 2006#2

      The macro needs the property Continue if a Find with Replace not found checked. It will work currently (UE v12.10a) only for ASCII files because of the IfEof bug on Unicode/UTF-8 files. You must have only the 2 files open and the file with list 1 must have the focus when you execute the macro. Every name in first column must be unique or the macro will fail. Blank lines (= lines without ANY character) in list 1 are ignored (IfCharIs 13 == IfCharIs Carriage Return).

      InsertMode
      ColumnModeOff
      HexOff
      NextWindow
      Bottom
      IfColNum 1
      Else
      "
      "
      EndIf
      Clipboard 9
      SelectAll
      StartSelect
      Copy
      EndSelect
      PreviousWindow
      Bottom
      IfColNum 1
      Else
      "
      "
      EndIf
      Top
      Paste
      "»
      "
      Loop
      Clipboard 9
      IfEof
      ExitLoop
      EndIf
      IfCharIs 13
      Key DOWN ARROW
      Else
      IfCharIs 10
      Key DOWN ARROW
      Else
      StartSelect
      Find Select "^t"
      Key LEFT ARROW
      Copy
      EndSelect
      Key HOME
      Find MatchCase Up "^c"
      IfFound
      Key LEFT ARROW
      Key RIGHT ARROW
      Clipboard 8
      StartSelect
      Key END
      Copy
      EndSelect
      Clipboard 9
      Find MatchCase "^c"
      Key END
      Clipboard 8
      Paste
      EndIf
      Key HOME
      IfColNumGt 1
      Key HOME
      EndIf
      Key DOWN ARROW
      EndIf
      EndIf
      EndLoop
      ClearClipboard
      Clipboard 8
      ClearClipboard
      Clipboard 0
      Find Up "»"
      Key LEFT ARROW
      Key DOWN ARROW
      SelectToTop
      Delete
      Best regards from an UC/UE/UES for Windows user from Austria
      19
      Basic UserBasic User
      19

        Jun 26, 2006#3

        Servus Mofi!
        THANX VERY MUCH, for the effort you always put into answering different questions about UE in this forum for us users!! :D