Entries Tagged as ‘Code’

February 10, 2008

Wikidot Platform Released as Open Source under Affero GPLv3 license

Lewes, Delaware (PRWEB) — Wikidot Inc., developer of the popular Wikidot.com platform has freed the code for its flagship product under the new GNU Affero General Public License version 3. The company has freed both its current Wikidot product, and the new Wikidot/2.0 product under development.
Wikidot Inc. founder and General Manager Michal Frackowiak explains, “our [...]

October 7, 2007

Leading Zeros

Here’s a function for adding leading zeros to a number. I have it set to add up to five zeros:
Public Function LdgZero(ByVal x)
If x < 10 Then
x = “00000″ & x
ElseIf x >= 10 And x < 100 Then
x = “0000″ & x
ElseIf x >= 100 And x < 1000 Then
x = “000″ & x
ElseIf [...]

October 6, 2007

Converting from Digitech to Laserfiche

After the Digitech Datagroup file is converted to .csv in Access the following code may be used to convert to a Laserfiche Import List (.lst) file.
    1 Imports Microsoft.VisualBasic.FileIO
    2 Imports System.IO.StreamReader
    3 Imports System.Text.Encoding
    4 Imports System.IO
    5 Imports System.Data.OleDb
    6 Imports System.Data.SqlClient
    7 Imports sConverter1.FormsConverter
    8 Module Convert
    9     Dim cnOleDb As OleDbConnection
   10     Dim PathDat As String
   11     Dim PathImg As String
   12     Dim PathLst As String
   13     Dim Dat As String
   14     Dim [...]