Protected: Del.Icio.us – protected

This post is password protected. To view it please enter your password below:

Password:

TimeStamp Issues

I found out that when changing the time stamp to a future time, you have to wait till the UTC time is reached to read your blog !

 Further, Do take backups of your blog! RSS is the best option

Hello World

Today I singned up for the WordPress blog. Thought that my daily varying interests need to be captured somewhere, so that at the end of a period, I can analyse my follies.

Some good sites seen today:

1. http://www.batchgeocode.com where yu can create your own map
2. http://www.bekkoame.ne.jp/~poetlabo/COMP/Excel/TIPS/Hex.htm with some excel tips
3. http://www.dailydoseofexcel.com Blogs on excel, which prompted me to start my own blog
4. http://www.dicks-blog.com/archives/2004/12/22/replacing-the-analysis-toolpak-addin-part-4 Part of the same as above
5. http://www.excelforum.com/showthread.php?t=332741 Excel VBA GET and Open statement help I took today
6. http://www.jkp-ads.com/Articles/ExcelArticles.htm Good articles and downloads on excel
7. http://www.seldenhouse.com/vba/filevba.htm VBA for Dummies
8. http://seby.wordpress.com This blog site

My Activities today:

1. Excel VBA for reading a binary file byte by byte, putting it into hex strings and then formatting the hex strings for output

[CODE]

Sub main(FileName As String)
    Dim oneByte As Byte, hexString As String
    FileN = FreeFile()
    Open FileName For Binary Access Read As FileN Len = 1
    While Not EOF(FileN)
        Get FileN, , oneByte
        hexString = hexString + Hex(oneByte)
    Wend
    Close
    Debug.Print hexBreak(hexString, 16)
End Sub
Function hexPrint(inputString As String)
    For i = 1 To Len(inputString) - 2 Step 2
        hexPrint = hexPrint & Mid(inputString, i, 2) & " "
    Next
    hexPrint = hexPrint & Mid(inputString, Len(inputString) - 2, 2)
End Function
Function hexBreak(inputString As String, breakAt As Integer)
    For i = 1 To Len(inputString) Step 2
        hexBreak = hexBreak & Mid(inputString, i, 2)
        If i Mod (breakAt + 1) = 0 Then
            hexBreak = hexBreak & vbCrLf
        Else
            If i < (Len(inputString) - 2) Then hexBreak = hexBreak & " "
        End If
    Next
'    hexBreak = hexBreak & Mid(inputString, Len(inputString) - 2, 2)
End Function
Sub ReadFile()
    Dim hFile As Long
    Dim strFile As String
    Dim strData As String * 4      

hFile = FreeFile
    strFile = "c:t.mid"
    Open strFile For Binary Access Read As hFile Len = 1
    Get hFile, 1, strData
    Close hFile
    MsgBox strData
End Sub

[/CODE]