charcodes=ToCharacterCode["this is a string."]

ListPlot[charcodes,Filling->Axis]

FromCharacterCode[charcodes]