4 of 5 deleted 182 characters in body

Mathematica, 178 134 132 bytes

""<>Table[(f/@{##2})[[x[[i]],i]],{i,Length@(x=(f=Characters)@#2/.Table[ToString@i->2+Floor[#/2^(7-i)]~Mod~2,{i,0,7}]/._String->1)}]&