Whats app chat data analysis in R

Question

I wan to clean whats app chat data file in R then i would like to apply some algorithm in it i need a clean data in col like this Date,Time , Am/Pm,Sender I have tried but datacould not be clean properly kindly help me out the I cant share the data due to confidentiality concern but indly let me know the R code to clean unstructure text file where words are scattered .. i tried in excel but no result

 

This is a picture suggest how i remove data where yellow highlighted