Column of ascii from text input

[nicksoph]

Hi,

Im trying to create a column of numbers that are generated from text input.

The text input could be several thousand characters long and I would like to generate a column in excel of their ascii codes with each cell showing the ascii code for one of the characters.

Any help with a good place to start would be appreciated.

Best wishes
nick

 

[Andrew Fergus]

Hi

In what format are you receiving the input text? Is it a text file? (like csv or txt format). Or are you inputting the text into Excel?

Andrew

 

[nicksoph]

Hi Andrew

Im getting the text as a file but could cut and paste into excel.

nick

 

[GTO]

For:

Excel Workbook
	A	B	C
1	Im trying to create a column of numbers that are generated from text input. The text input could be several thousand characters long and I would like to generate a column in excel of their ascii codes with each cell showing the ascii code for one of the characters.Any help with a good place to start would be appreciated.Best wishesnick
2		73
3		109
4		32
5		116
6		114
Sheet1

(NOTE: Rows cut-off for post)

Try:

<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br>    <br><SPAN style="color:#00007F">Sub</SPAN> exa()<br><SPAN style="color:#00007F">Dim</SPAN> lChar&, Ary<br>    <br>    <SPAN style="color:#00007F">If</SPAN> Len(Range("A1").Value) >= 1 <SPAN style="color:#00007F">Then</SPAN><br>        <SPAN style="color:#00007F">ReDim</SPAN> Ary(1 <SPAN style="color:#00007F">To</SPAN> Len(Range("A1").Value), 1 <SPAN style="color:#00007F">To</SPAN> 1)<br>        <SPAN style="color:#00007F">For</SPAN> lChar = 1 <SPAN style="color:#00007F">To</SPAN> <SPAN style="color:#00007F">UBound</SPAN>(Ary, 1)<br>            Ary(lChar, 1) = Asc(Mid(Range("A1").Value, lChar, 1))<br>        <SPAN style="color:#00007F">Next</SPAN><br>        <br>        Range("B2").Resize(UBound(Ary, 1)).Value = Ary<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

Hope that helps,

Mark

 

[wigi]

If the long string is entered in cell A1, put in cell B1:

=CODE(MID($A$1,ROW(),1))

Copy the formula down as far as needed.

Wigi

 

[nicksoph]

Fantastic

both the answers and the speed of replies

I shall be nicer to some other peps because I cant be nice to either of you.

many thanks
nick

 

[Andrew Fergus]

I'm not sure what version you are using bit beware that Excel 2003 only displays the first 1024 characters (despite being able to hold 32k characters) so sometimes it can look funny. Explained here:
http://excel.tips.net/Pages/T003163_Character_Limits_for_Cells.html

Excel 2007 doesn't have this issue.