Asc Values

[Stan Mathews]

Re: Asc Values

And this way.

'Date Created: 09-Jan-2003 08:35:07 PM
'Last Updated: 08-Sep-2016 07:15:03 AM
'Created By : John Magno - http://www.JohnMagno.com
'Updated By  : SMathews
'sample usage ex_ascii("C:\temp\newasc.xls","Brush Script")
'output will be saved as C:\temp\newasc_Brush Script.xls
FUNCTION ex_ascii AS L (filename AS C, fontname as C )
	ex_ascii = .F.
	final_filename = strtran(filename,".xls","_"+fontname+".xls")
	Dim xlApp as p
	dim myCell as c
	xlApp = ole.GetObject("","Excel.Application")
	xlApp.Workbooks.Add()
	'debug(1)
	'xlApp.Visible = .T. 'comment this line out if you don't want to see Excel
	row_ctr = 7
	qx = 1
	while qx < 254
		xlApp.Range("A"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = qx
		xlApp.Range("B"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = "=char(A"+alltrim(str(row_ctr))+")"
		xlApp.Range("C"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = qx+1
		xlApp.Range("D"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = "=char(C"+alltrim(str(row_ctr))+")"
		xlApp.Range("E"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = qx+2
		xlApp.Range("F"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = "=char(E"+alltrim(str(row_ctr))+")"
		if qx+3 > 255
			exit while
		end if
		xlApp.Range("G"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = qx+3
		xlApp.Range("H"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = "=char(G"+alltrim(str(row_ctr))+")"
		xlApp.Range("I"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = qx+4
		xlApp.Range("J"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = "=char(I"+alltrim(str(row_ctr))+")"
		xlApp.Range("K"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = qx+5
		xlApp.Range("L"+alltrim(str(row_ctr))).Select()
		xlApp.ActiveCell.formula = "=char(K"+alltrim(str(row_ctr))+")"
		qx = qx + 6
		row_ctr = row_ctr+1
	end while
	xlApp.Range("A7:A49").Select()
	xlApp.Selection.Font.Name = "Arial"
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("B7:B49").Select()
	xlApp.Selection.Font.Name = fontname
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("C7:C49").Select()
	xlApp.Selection.Font.Name = "Arial"
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("D7:D49").Select()
	xlApp.Selection.Font.Name = fontname
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("E7:E49").Select()
	xlApp.Selection.Font.Name = "Arial"
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("F7:F49").Select()
	xlApp.Selection.Font.Name = fontname
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("G7:G49").Select()
	xlApp.Selection.Font.Name = "Arial"
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("H7:H49").Select()
	xlApp.Selection.Font.Name = fontname
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("I7:I49").Select()
	xlApp.Selection.Font.Name = "Arial"
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("J7:J49").Select()
	xlApp.Selection.Font.Name = fontname
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("K7:K49").Select()
	xlApp.Selection.Font.Name = "Arial"
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("L7:L49").Select()
	xlApp.Selection.Font.Name = fontname
	xlApp.Selection.Font.FontStyle = "Regular"
	xlApp.Selection.Font.Size = 14
	xlApp.Range("A2").Select()
	xlApp.Selection.Formula = fontname
	xlapp.DisplayAlerts = .F.
	xlApp.ActiveWorkbook.SaveAs(final_filename,56)
	xlApp.Workbooks.Close()
	xlapp.DisplayAlerts = .T.
	xlApp.Quit()
	delete xlApp
	ex_ascii = .T.
END FUNCTION

ex_ascii function.txt

[Stan Mathews]

Re: Asc Values

Added in function font and size selection.


ex_ascii - 09-08-2016 -1.txt

[GGandhi]

Re: Asc Values

while we are still at it, this will give four column html file to display.

'Last Updated: 08-Sep-2016 07:49:46 AM
'Created By  : GGandhi344
'Updated By  : GGandhi344
dim t as p
t = file.create("c:\users\ggandhi\ascii.html",FILE_RW_SHARED) '  change to your folder wherever you want to save and display that file in a browser
t.write_line("<html><head><title>ASCII TABLE</title>")
't.write_line("<link rel=\"stylesheet\"type=\"text/css\" href=\"c:\users\govindan\ascii.css\">") 'this file contains the same css included in the file here
t.write_line("<style>")
t.write_line("table { border-collapse: collapse; width:100%}") ' you can use 100% if you like but the appearance is not that satisfactory so i changed to 50%
t.write_line("th, td {text-align:left; padding:8px; }")
t.write_line("th {height:50px; background-color:#4CAF50; color: white;}")
t.write_line("tr:nth-child(even) {background-color: #f2f2f2}")
t.write_line("</style>")
t.write_line("</head>")
t.write_line("<body>")
t.write_line("<h2>Here is an example of ASCII table")
t.write_line("in tabular form and css style applied</h2>")
t.write_line("<table ><thead><tr>")
t.write_line("<th>Number</th><th>Character</th><th>Number</th><th>Character</th><th>Number</th><th>Character</th><th>Number</th><th>Character</th>")
t.write_line("</tr></thead>")
t.write_line("<tbody>")
for j = 1 to 64
	t.write_line("<tr>")
	t.write_line("<td>" + j  + "</td>")
	t.write_line("<td>" + chr(j) + "</td>")
	t.write_line("<td>" + (j+(1*64))  + "</td>")
	t.write_line("<td>" + chr(j+(1*64)) + "</td>")
	t.write_line("<td>" + (j+(2*64))  + "</td>")
	t.write_line("<td>" + chr(j+(2*64)) + "</td>")
	t.write_line("<td>" + (j+(3*64))  + "</td>")
	t.write_line("<td>" + chr(j+(3*64)) + "</td>")
	t.write_line("</tr>")
	next
t.write_line("</tbody>")
t.write_line("</table>")
t.write_line("</body></html>")
t.flush()
t.close()

[MoGrace]

Re: Asc Values

For sure the smartest person in the room is not me... the simpler spreadsheet idea works for me!