Did something like this some time ago. You should try something with some of these nodes:
GetData(Polygon_to_Vertecies) GetData(VertexIndex) Find in Array Get Element Index GetData(Vertex to Polygons) But there are lots of Context-Issues.... Got no much time to have a lock now.... maybe i could check this this evening