MemoSoup » Scripts

VBA: how to read text file

admin — Sat, 04 Feb 2012 23:55:58 +0000

This is just example, how to read text file in Visual Basic for Applications (for example, in Excel macro).

It’s just a stub: there is no error processing here, the source file is really text file, no problems with permissions etc.

Sub read_from_text_file()

txtFile = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If txtFile = False Then
MsgBox "No file to process"
Exit Sub
End If

Open txtFile For Input As #1
Input #1, myString
MsgBox myString
Close #1

End Sub

AIX: reset user password

admin — Mon, 30 Jan 2012 13:17:54 +0000

Change the password for the user (as root):

passwd username

Reset the login counter and unlock the user:

chsec -f /etc/security/lastlog -a "unsuccessful_login_count=0" -s username
chuser "account_locked=false" username

Perl: SOAP problem with dateTime

admin — Thu, 10 Nov 2011 16:29:17 +0000

The following error message was received by Perl application:
Unrecognized type ‘{http://www.w3.org/1999/XMLSchema}dateTime

The problem is caused by “dateTime” type: it was not supported in the 1999 XML Specification.
The solution is to switch to 2001 schema:

my $soap = SOAP::Lite->uri( $NAMESPACE )->proxy( $PROXY_URL )->xmlschema ('2001');

Perl: Soap deserialization error

admin — Fri, 29 Jul 2011 13:08:36 +0000

Sometimes the following error is displayed, if application uses the old version of CPAN SOAP module:
“Client Application failed during request deserialization: no element found at line 1, column 0, byte -1 at XML/Parser.pm”

The possilbe solution is to change SOAP::Transport::HTTP module (SOAP/Transport/HTTP.pm), function “handle”:

sysread( STDIN, $buffer, $length )

should be replaced by

read( STDIN, $buffer, $length )

AutoIt: script for hotkeys usage

admin — Fri, 08 Apr 2011 17:15:02 +0000

This script allows You to define the global Windows hotkeys via the configuration file.

The syntax of the config file is simple:

Hotkey,Program,Parameters

Here “Hotkey” is the combination of the keyboard key with one of the identifiers:

^ Ctrl
! Alt
+ Shift
# Windows-Key

Example:

;Win+C – start calculator
#{c},calc.exe

;Win+Shift+N – start notepad
+#{n},notepad.exe

;Win+N – start notepad++ together with apploc.exe
#{n},%windir%\AppPatch\AppLoc.exe,”%ProgramFiles%\Notepad++\notepad++.exe” -nosession /L0419

#Include <File.au3>

; ^ Ctrl
; ! Alt
; + Shift
; # Windows-Key

Global $MATRIX_SIZE = 1
Global $aMatrix[$MATRIX_SIZE][3]
Global ENUM $POS_HOTKEY = 0, $POS_PROGRAM, $POS_PARAM

Global $sPATH, $sProgramFiles, $sAppData
AutoItSetOption("TrayAutoPause",1)
AutoItSetOption("TrayMenuMode",1)

$mnuReadSettings = TrayCreateItem("Read settings")
$mnuHelp = TrayCreateItem("Help")
TrayCreateItem("")
$mnuExit = TrayCreateItem("Exit")

Func read_settings()

Local $aTMPArray
FileChangeDir (@scriptdir )
If Not _FileReadToArray("hotkeys.txt",$aTMPArray) Then
MsgBox(4096,"Error", " Error reading hotkeys.txt@CRLF error:" & @error)
Exit
EndIf
if ( $aTMPArray[0] = 0 ) Then
MsgBox(4096,"Error", " No hotkeys defined")
Exit
EndIf

$MATRIX_SIZE = $aTMPArray[0]
ReDim $aMatrix[$MATRIX_SIZE][3]

AutoItSetOption("ExpandEnvStrings",1)

$i = 0
for $i_tmp = 1 to $MATRIX_SIZE

if ( StringLen($aTMPArray[ $i_tmp ]) = 0 or StringLeft( $aTMPArray[ $i_tmp ] , 1) = ";" ) Then
ContinueLoop
EndIf

$aCurLine = StringSplit( $aTMPArray[ $i_tmp ], ",;", 2 )
$lCurLine = UBound( $aCurLine )

if ( $lCurLine<2 or $aCurLine[ $POS_HOTKEY ] = "" or $aCurLine[ $POS_PROGRAM ] = "" ) Then
MsgBox(4096,"Error", " No program or hotkey defined: " & $aTMPArray[ $i_tmp ] )
Exit

EndIf

; Are the parameters for the command line?
if ($lCurLine = 2 ) Then
$sParam = ""
Else
$sParam = $aCurLine[$POS_PARAM]
EndIf

Switch $aCurLine[$POS_PROGRAM]
Case "SPECIAL"
HotKeySet($aCurLine[$POS_HOTKEY], "_run_special" )
Case Else

$aMatrix[$i][$POS_HOTKEY] = $aCurLine[$POS_HOTKEY]

$aMatrix[$i][$POS_PROGRAM] = $aCurLine[$POS_PROGRAM]

$aMatrix[$i][$POS_PARAM] = $sParam

$aMatrix[$i][$POS_PROGRAM] = $aMatrix[$i][$POS_PROGRAM] & " " & $aMatrix[$i][$POS_PARAM] ;

HotKeySet($aMatrix[$i][$POS_HOTKEY],"_run_it" )

$i = $i + 1 ;

EndSwitch

Next

AutoItSetOption("ExpandEnvStrings",0)

EndFunc

Func _run_special()
MsgBox(0 , "No action", "Reserved for future use" )
EndFunc

Func _run_it()
For $i = 0 to $MATRIX_SIZE - 1
if( $aMatrix[$i][$POS_HOTKEY] = @HotKeyPressed ) Then
Run( $aMatrix[$i][$POS_PROGRAM] )
ExitLoop
EndIf
Next
EndFunc

Func show_help()
Local $helpMessage = ""

for $i = 0 to $MATRIX_SIZE - 1
$helpMessage = $helpMessage & $aMatrix[$i][$POS_HOTKEY] & " " & $aMatrix[$i][$POS_PROGRAM] & @CRLF
Next

MsgBox(0,"Help", $helpMessage )
EndFunc

; ##### Main ######
read_settings()
While 1
$msg = TrayGetMsg()
Select
Case $msg = $mnuReadSettings
read_settings()
case $msg = $mnuHelp
show_help()
Case $msg = $mnuExit
Exit
EndSelect

sleep(100)
WEnd

Unix: print in color

admin — Sun, 30 Jan 2011 14:46:52 +0000

This simple procedure takes 3 arguments as the parameters:

Text
Foreground color
Background color

It prints the text to the terminal in selected colors.

function print_color {
local text=$1
local fg=$2
local bg=$3
case "$fg" in
red) fg="31m" ;;
green) fg="32m" ;;
yellow) fg="33m" ;;
blue) fg="34m" ;;
white) fg="37m" ;;
black) fg="30m" ;;
*) fg="37m" ;;
esac
case "$bg" in
red) bg="41m" ;;
green) bg="42m" ;;
yellow) bg="43m" ;;
blue) bg="44m" ;;
white) bg="47m" ;;
black) bg="40m" ;;
*) bg="40m" ;;
esac
echo -en "\033[${fg}\033[${bg}${text}\033[0m"
}

Unix: rename files to lowercase

admin — Sun, 30 Jan 2011 14:44:20 +0000

It’s very simple to rename the files to lowercase/uppercase using awk:

Lowercase

ls -1rt | awk '{ printf("mv %s %s\n", $0, tolower($0)) | "sh" } END { close("sh") }'

Uppercase

ls -1rt | awk '{ printf("mv %s %s\n", $0, toupper($0)) | "sh" } END { close("sh") }'

Perl: get file checksum

admin — Tue, 08 Jun 2010 15:12:23 +0000

use Digest::MD5;
use IO::File;

my $chk = Digest::MD5->new();

foreach my $file (@ARGV)
{
$chk->addfile(IO::File->new($file));

print "$file -> ",$chk->hexdigest,"\n";
}

The additional details could be found on IBM site

Reading password in Unix shell

admin — Tue, 02 Feb 2010 21:18:51 +0000

print -n "Enter Your password:"
stty_orig=`stty -g`
trap "stty ${stty_orig}; exit" 1 2 3 15
stty -echo >&- 2>&-
read PASS
stty ${stty_orig} >&- 2>&-
trap 1 2 3 15
print

trap :catches interruptions. I.e. if the user presses Ctrl+C, the normal stty mode is set before stopping the program
stty -echo :switches off the display echo
>&- 2>&- :helps to avoid “stty: Not a typewriter” message for non-interactive scripts.

Using the clipboard in WSH

admin — Tue, 26 Jan 2010 13:21:06 +0000

How to get the text from the clipboard

set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
textFromClipboard = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
WScript.Echo textFromClipboard

How to put the text into clipboard

textIntoClipboard = "Some text" & VbCrLf & "Some more text"

Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"
Do Until objIE.ReadyState = 4
WScript.Sleep 100
Loop

objIE.document.ParentWindow.ClipboardData.SetData "text", textIntoClipboard
objIE.Quit

The detailed explanation could be found here.