Advertisement
Advertisement
| 09.03.2008 at 12:28PM PDT, ID: 23700468 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: |
Option Explicit
Public Sub Main()
Dim strFilename As String
Dim strContent As String
Dim i As Integer
Dim strFiles() As String
strFilename = Command$
MsgBox strFilename
If Len(strFilename) Then
If InStr(strFilename, """") > 0 Then
strFiles = Split(strFilename, """")
Else
strFiles = Split(strFilename, " ")
End If
For i = 0 To UBound(strFiles)
' MsgBox strFiles(i)
If Len(Trim(strFiles(i))) > 0 Then
If Len(Dir(strFiles(i))) > 0 Then
strContent = fGetFileContents(strFiles(i))
strContent = Replace(strContent, vbTab, "")
strContent = Replace(strContent, "|", vbTab)
sPutStringToFile strContent, strFiles(i)
End If
End If
Next i
End If
End Sub
Public Function fGetFileContents(strPath As String) As String
Dim hFile As Integer
Dim strFileContent As String
If Len(Dir(strPath)) = 0 Then Exit Function
On Error GoTo errGetFile
hFile = FreeFile
Open strPath For Binary As #hFile
strFileContent = Space(LOF(hFile))
Get #hFile, , strFileContent
Close #hFile
fGetFileContents = strFileContent
Exit Function
errGetFile:
Close
MsgBox Err.Description, vbCritical, "GetFileContents"
End Function
Public Sub sPutStringToFile(strContent As String, strPath As String)
Dim hFile As Integer
strPath = Mid(strPath, 1, Len(strPath) - 4) & "-c.txt"
'If file exists delete it.
On Error Resume Next
Kill strPath
On Error GoTo errPutString
'Write file
hFile = FreeFile
Open strPath For Binary As #hFile
Put #hFile, , strContent
Close #hFile
Exit Sub
errPutString:
Close
MsgBox Err.Description, vbCritical, "PutStringToFile"
End Sub
|
