I think SequenceAlignment
might be interesting to you. You'll be able to find the swapped characters (and other differences) by inspecting what it gives you. For example, I imported your csv file and applied it to the pairs in the first two columns:
rawData = Import[<path to file>];
pairs = rawData[[2 ;;, 1 ;; 2]];
SequenceAlignment @@@ pairs
Result:
{{"OKJ", {"5", "S"}, "30-WM"},
{"CPX13", {"", " "}, "1980 P7.2"},
{"LTBR", {"", "-"}, "T5100-244"},
{"SFJT6-75-M3", {"_", "."}, "0"},
{"TELANA10T-P8.4-B25-L12", {"", "-"}, "KD"},
{"WSJM30-12-2", {",", ""}},
{"CCGH18-80", {"-", "."}, "0"},
{"CCGH18-80", {"-", "."}, "0"},
{"LFZB8", {"", "-"}, "15"},
{"LFZB12", {"", "-"}, "15"},
{"LFZB12", {"", "-"}, "12"},
{"MSRB", {" ", ""}, "6.5-0.5"},
{"MSRB", {" ", ""}, "6.5-0.5"},
{"MSRB", {" ", ""}, "6.5-0.5"},
{"MSRB", {" ", ""}, "6.5-0.5"},
{"37104-3122-000", {"", " "}, "FL"},
{"37104-3122-000", {"", " "}, "FL"},
{"HXMN", {"S", "5"}}}
There are several options that you can play with.