Blog‎ > ‎

IT


Get incremental build number in TFS VisualStudio online

posted Apr 25, 2015, 6:16 PM by Jake Vosloo

I wanted incremental build numbers from VisualStudio online when automatically building and deploying to Google play store.

The build process file creates the buildnumber in the first line:
this:Process.BuildNumberFormat="["$(Rev:rr)"]"

The $(Rev:xxx) defines the build number. When a build is completed, if nothing else in the build number has changed, the Rev integer value is incremented by one.

Although I could not find any documentation, it seems the Rev number has the following format:
rr formats it like ## so:
$(Rev:.r) is formatted as .1
$(Rev:.rr) is formatted as .01
$(Rev:rr) is formatted as 01


References:


Root Samsung Note Pro 12.2 LTE SM-P905 - P905ZSUANH1

posted Apr 10, 2015, 2:42 AM by Jake Vosloo   [ updated Apr 10, 2015, 2:48 AM ]

Warning: This trips the Knox warranty void flag.

Download and extract the following files:

Power off your Android device.

Put the Galaxy Note Pro 12.2 LTE SM-P905 in Download Mode by pressing and holding down the Home, Volume Down buttons while pressing the Power button. A warning screen will come up; press Volume Up button to enter Download Mode. If you get a recovery menu instead, check that you are pressing the volume down button and not the volume up button.


Run Odin3 v3.09.exe as an Administrator because Admin privileges is required to complete the process smoothly

Connect your device to your PC using USB cable. You will see an  “Added!!”  massage in Odin’s message box.

Click the AP Button, and select that CF-Auto-Root-viennalte-viennaltexx-smp905.tar.md5 file

In Odin window, ensure only Auto Reboot and F. Reset Time checkboxes are selected.

Double  check everything in Step 8 & 9 above. When satisfied click the START button to begin the flashing process.

Your device will restart and it is complete when you see a PASS message with green background in the left-most box at  the very top of the Odin. You can now unplug the USB cable to disconnect  your device from computer.

If it worked, go to http://www.chainfire.eu/ and make a big donation for their work.


Extracted from:
http://androidpulp.blogspot.com/2014/09/root-p905zsuanh1-android-442-kitkat.html

Save text to file in Excel VBA

posted Dec 29, 2013, 3:00 AM by Jake Vosloo   [ updated Dec 29, 2013, 3:05 AM ]

This VBA script will save the text from one column (O) into a file for which the name is taken from column (K).
Surprisingly this method, which opens and closes a file for each row of the sheet is much faster than the method I describe here, which tells Excel to save sheets to file as csv. I presume the overhead is due to Excel having to serialise the sheets to CSV format.

Public Sub ExportPastelCSV()
On Error GoTo HandleErr

Dim ThisRow As Range
Dim OutputPath As String
Dim OutputFile As String
Dim OutputRow As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.CalculateFullRebuild

'Make a folder with the name of the worksheet
OutputPath = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) 'Simple but bad way to remove the extension.
OutputPath = ThisWorkbook.path & Application.PathSeparator & OutputPath
If Dir(OutputPath, vbDirectory) = "" Then
    MkDir OutputPath
Else
    If Dir(OutputPath & "\*.*") <> "" Then
        Kill OutputPath & "\*.*"
    End If
End If

Dim TheSheet As Worksheet
Set TheSheet = ThisWorkbook.ActiveSheet
Dim TheRange As Range
Set TheRange = ThisWorkbook.ActiveSheet.UsedRange

If TheRange.Rows.Count > 1 Then
   Set TheRange = TheRange.Resize(TheRange.Rows.Count - 1, TheRange.Columns.Count).Offset(1, 0)
 
    For Each ThisRow In TheRange.Rows
    OutputFile = ThisRow.Cells(1, 11).Value
        If OutputFile <> "" Then
            OutputRow = ThisRow.Cells(1, 15).Value
            OutputFile = OutputPath & Application.PathSeparator & OutputFile & ".csv"
            Open OutputFile For Append Lock Write As #1
            Write #1, OutputRow
            Close #1
        End If
    Next ThisRow
End If

MsgBox "Successfully exported the Pastel CSV files in a folder with the same name as this worksheet:" & vbCrLf & OutputPath & vbCrLf

Finally:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Exit Sub

HandleErr:
MsgBox "Couldn't save all sheets to CSV." & vbCrLf & _
        "Source: " & Err.Source & " " & vbCrLf & _
        "Number: " & Err.Number & " " & vbCrLf & _
        "Description: " & Err.Description & " " & vbCrLf

GoTo Finally
End Sub

Save every sheet in an Excel workbook as a CSV file

posted Dec 28, 2013, 1:42 AM by Jake Vosloo   [ updated Dec 28, 2013, 3:05 AM ]

Today I wanted to save every sheet in an Excel workbook as a CSV file, the headings of each sheet is removed first.
Here's the code:

Public Sub SaveAllSheetsAsCSV()
On Error GoTo HandleErr

Dim Sheet As Worksheet
Dim NewWorkbook As Workbook
Dim OutputPath As String
Dim OutputFile As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.CalculateFullRebuild

'Make a folder with the name of the worksheet
OutputPath = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) 'Simple but bad way to remove the extension.
OutputPath = ThisWorkbook.path & Application.PathSeparator & OutputPath
If Dir(OutputPath, vbDirectory) = "" Then
    MkDir OutputPath
End If

For Each Sheet In Sheets
    Set NewWorkbook = Workbooks.Add
    ' Copy contents without headers
    With Sheet.UsedRange
        If .Rows.Count > 1 Then
            .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0).Copy
        Else
            .Copy
        End If
    End With
    ' Paste values only
    NewWorkbook.Sheets.Item(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
    ' Save to CSV file
    OutputFile = OutputPath & Application.PathSeparator & Sheet.Name & ".csv"
    NewWorkbook.SaveAs Filename:=OutputFile, FileFormat:=xlCSV, CreateBackup:=False
    NewWorkbook.Close
Next


Finally:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Exit Sub

HandleErr:
MsgBox "Couldn't save all sheets to CSV." & vbCrLf & _
        "Source: " & Err.Source & " " & vbCrLf & _
        "Number: " & Err.Number & " " & vbCrLf & _
        "Description: " & Err.Description & " " & vbCrLf

GoTo Finally
End Sub


I got help from the following sources:
http://www.mrexcel.com/forum/excel-questions/587522-copy-usedrange-except-header.html
http://stackoverflow.com/questions/59075/save-each-sheet-in-a-workbook-to-separate-csv-files
http://www.excelfox.com/forum/f2/export-all-worksheets-to-separate-csv-files-388/
http://windowssecrets.com/forums/showthread.php/140173-Open-excel-workbook-save-each-worksheet-as-csv-with-tab-name

Excel VBA copy sheet values only

posted Dec 28, 2013, 1:36 AM by Jake Vosloo   [ updated Dec 28, 2013, 1:53 AM ]

Today I wanted to copy the values from every sheet in one workbook into a new workbook with only the values.  Here is what worked for me eventually:

For Each Sheet In Sheets
    Set NewWorkbook = Workbooks.Add
    Sheet.UsedRange.Copy
    NewWorkbook.Sheets.Item(1).Cells(1, 1).PasteSpecial Paste:=xlPasteValues
...


The URLs where I found advice were in no order of preference:
http://www.mrexcel.com/forum/excel-questions/571065-used-range-copy-paste-values.html
http://www.ozgrid.com/forum/showthread.php?t=37957
http://www.ozgrid.com/forum/showthread.php?t=79718
http://stackoverflow.com/questions/14881032/copy-excel-sheet-to-another-excel-book-but-just-formats-and-values
http://stackoverflow.com/questions/17565456/macro-to-copy-values-only-from-one-sheet-to-another
http://www.mrexcel.com/forum/excel-questions/650606-copy-worksheet-values-only-new-workbook.html



Exchange gateway - DavMail

posted Nov 15, 2013, 5:47 AM by Jake Vosloo

DavMail hides the proprietary Microsoft Exchange protocols behind an industry standard API so that any open source client can interact with Exchange. From their website:

DavMail is a POP/IMAP/SMTP/Caldav/Carddav/LDAP exchange gateway allowing users to use any mail/calendar client (e.g. Thunderbird with Lightning or Apple iCal) with an Exchange server, even from the internet or behind a firewall through Outlook Web Access. DavMail now includes an LDAP gateway to Exchange global address book and user personal contacts to allow recipient address completion in mail compose window and full calendar support with attendees free/busy display.

The main goal of DavMail is to provide standard compliant protocols in front of proprietary Exchange. This means LDAP for global address book, SMTP to send messages, IMAP to browse messages on the server in any folder, POP to retrieve inbox messages only, Caldav for calendar support and Carddav for personal contacts sync. Thus any standard compliant client can be used with Microsoft Exchange. DavMail gateway is implemented in java and should run on any platform.


Linux Shift Keypad arrow problem

posted Nov 11, 2013, 1:22 AM by Jake Vosloo

Windows allows you to use shift and a keypad arrow to select words.  In Linux the shift keypad arrow toggles numlock and writing a number as described here by xenopeek.  Fortunately you can make the keypad and shift work the same as in windows as described here by mvaldez which is:

Go to the System Settings > Keyboard Layout > Layout > Options
Select Miscellaneous / Compatibility options > Shift with numeric keypad keys work as in MS Windows.

Virtualise dual boot windows on Linux

posted Nov 7, 2013, 9:10 AM by Jake Vosloo   [ updated Nov 7, 2013, 9:41 AM ]

This is how to run a dual boot Windows 8 on Linux Mint / Ubuntu in Virtualbox.

Install virtualbox.
Create a virtual machine without a disk.
Go to the virtual machine folder.

sudo usermod -a -G disk jpv

install-mbr -e12 --force windows.mbr

VBoxManage internalcommands createrawvmdk -relative -filename windows.vmdk -rawdisk /dev/sda

In Virtualbox attach the new disk to the SATA storage setting.

Start the virtual machine.

Your normal boot menu will show, make sure you select Windows, it might not be a good idea to start the host OS as a guest in itself.

Windows will spend some time detecting new drivers, etc. and then boot up.

If Windows reboot too many times, try using the install DVD's repair function.

Note: If you don't want the normal boot menu to show, look at the MBR option of VBoxManage (-partitions 1,2 -mbr windows.mbr) I could not get it to work.

Linux mouse sensitivity is too high

posted Nov 7, 2013, 8:33 AM by Jake Vosloo

Damn XWindows on Linux is unable to scale the mouse sensitivity.  Which means that a high sensitivity mouse cannot be used, unless you use the following script which was addapted from this post by Raphael Ahrens.

#!/bin/bash

if [ "$SEARCH" = "Logitech USB Receiver" ]; then
    exit 1
fi

ids=$(xinput --list | awk -v search="$SEARCH" \
    '$0 ~ search {match($0, /id=[0-9]+/);\
                  if (RSTART) \
                    print substr($0, RSTART+3, RLENGTH-3)\
                 }'\
     )

for i in $ids
do
    xinput set-prop $i 'Device Accel Profile' -1
    xinput set-prop $i 'Device Accel Constant Deceleration' 2.0
    xinput set-prop $i 'Device Accel Velocity Scaling' 1.0
done

IT testing as a profession

posted Oct 27, 2013, 4:56 PM by Jake Vosloo   [ updated Oct 27, 2013, 5:01 PM ]

Once again I realise how slow business managers are in catching up with and grasping the opportunities and risks involved in what is often dismissively called I.T.  For example, the testing of IT systems (software, networks and hardware) has never really featured on the CEO's dashboards or at Business College.  Yet, it is probably one of the most powerful risk management functions within an organisation.  This was recently highlighted, courtesy of Knight Capital and the investigations following their small ($400 million) blunder.

Testing of IT systems is very similar to the auditing of financial books. It is the double entry method for technology systems, first enter the code into the computer and secondly enter the expected results into the tests.  No amount of business requirements, system designs, architectures or other documentation can make up for a lack in testing.  If your organisation is not prioritising testing over documentation then you are doomed to have high overheads, low returns and unmanageable risks.

It's amazing how low middle management's regard for their testing resources are and how little they expect of their testers.

  • Management should expect testers to be involved in the design of every system, the functional tests should be part of the business requirements (BDD).
  • The testers should be involved with the architects in defining the non-functional tests of the architecture.
  • The testers should be involved in the development phase by automating the functional tests and integrating with the unit tests provided by the developers.
  • Finally, the testing phase itself should not exist because it should already be done when development is complete.

I am inspired to see people like Aldo Rall go to great lengths to explain the benefits of proper testing to business and IT management. If you are a senior manager you should understanding how IT gets work done.  If you are an IT manager, you should consult with people like Aldo on how to improve your testing division.

1-10 of 28