UC's Corner

wordpress automatic update problem in windows server

yussi ariefiyono — Fri, 24 Jun 2011 13:08:15 +0000

error message: Download failed.: Could not create Temporary file

the issue is your wordpress working directory permission related. if you’re using IIS server, make sure to grant “network” this user “RWX” permissions and propagated to all sub directories. that should fix it.

viagra

Count rows in excel vb

yussi ariefiyono — Fri, 25 Jun 2010 12:57:43 +0000

problem:

we want to count number of rows in excel with VB

solution:

I create the sub function to count the number of rows depend on where do you want to start!

Sub countRows()

RowCount = 0

RowNext = 22 ( please change the starting row according to your need)

Do While Cells(RowNext, 3).Value <> 0 ( the “3″ also need to be changed)

RowCount = RowCount + 1

RowNext = RowNext + 1

Loop

‘MsgBox RowCount

End Sub

File in use Vb

yussi ariefiyono — Tue, 20 Apr 2010 07:11:36 +0000

just found nice code in internet, and i use it in one of my project. works great!
it will return the last user that open the file

Function LastUser(strPath As String) As String

‘// Code by Helen from http://www.xtremevbtalk.com/index.php?s=

‘// This routine gets the Username of the File In Use

‘// Credit goes to Helen for code & Mike for the idea

‘// Amendment 25th June 2004

‘// : Name changes will show old setting

‘// : you need to get the Len of the Name store just before

‘// : the double Padded nullstrings

Dim text As String

Dim strFlag1 As String, strflag2 As String

Dim i As Integer, j As Integer

Dim hdlFile As Long

Dim lNameLen As Byte

strFlag1 = Chr(0) & Chr(0)

strflag2 = Chr(32) & Chr(32)

hdlFile = FreeFile

Open strPath For Binary As #hdlFile

text = Space(LOF(hdlFile))

Get 1, , text

Close #hdlFile

j = InStr(1, text, strflag2)

i = InStrRev(text, strFlag1, j) + Len(strFlag1)

lNameLen = Asc(Mid(text, i – 3, 1))

LastUser = Mid(text, i, lNameLen)

End Function

uploading the latest file to ftp with batch command

yussi ariefiyono — Thu, 08 Apr 2010 09:45:10 +0000

uploading the latest file to ftp, all you need 2 .bat files

fileup.bat

@echo off

echo user USERNAME> ftpcmd.dat

echo PASSWORD>> ftpcmd.dat

echo bin>> ftpcmd.dat

echo cd REMOTEPATH >> ftpcmd.dat

echo put %1>> ftpcmd.dat

echo quit>> ftpcmd.dat

ftp -n -s:ftpcmd.dat FTPADDRESS

del ftpcmd.dat

CALL.bat

@echo off

setlocal

:source directory

set srcDir=SOURCE DIRECTORY

set lastmod=

pushd “%srcDir%”

for /f “tokens=*” %%a in (‘dir /b /od 2^>NUL’) do set lastmod=%%a

if “%lastmod%”==”" echo Could not locate files.&goto :eof

:copy

call YOURPATH\fileup.bat “%lastmod%”

:delete

del “%lastmod%”

You call the CALL.bat, and the fileup.bat is for information

Transfer to FTP using batch command

yussi ariefiyono — Thu, 08 Apr 2010 08:52:34 +0000

there are 2 file you need

1. info of your ftp ( store it in .txt)
in my case i named it info.txt with these code written:

yourusername

yourpassword

bin

cd yourremotedirectory

bye

2. .bat file to connect to ftp and do what you want
in .bat file simply call the info.txt with this code:

ftp -s:log.txt YourFTPAddress

static site to CMS in 15 minutes? yes you can

yussi ariefiyono — Thu, 08 Apr 2010 07:44:18 +0000

You’re probably wondering how you could possibly integrate your entire website with a CMS in just 15 minutes. The truth is, due to the recent trend of “light” content management systems, it’s becoming easier than ever to get small to mid-sized static websites up and running in them.

What is a light CMS? For the sake of this tutorial, I’m defining it as an easy-to-use, unobtrusive content management system that you don’t have to install. The nice thing about these systems is that you don’t even have to host them yourself, which is why integration takes very little time.

There are actually a handful of these CMS products available, including CushyCMS, Pagelime, andSimpleCMS. Most of these systems work off the same basic principle — you add class=”something” to almost any HTML element, link your website up to their system, and you’re done. Best of all, every one of these systems offer a free version.

Although every light CMS product has its pros and cons, I chose to work with Surreal CMS because of their vast feature set and simple interface. You’ll see exactly what I mean in just a moment, but in the meantime, here is the general process of integrating with any light CMS:

Create your website
Link it up to the CMS
Enable webpages
Add one or more editors
Begin editing

all in here: http://surrealcms.com/

display list of table from other database with DAO

yussi ariefiyono — Thu, 08 Apr 2010 07:20:44 +0000

this function will display list of table from other database, it come handy if you want to make a tool for inventory of all your db

Sub displayTable()

Dim dbs As Database

Dim otable As DAO.TableDef

Dim ItemName As String

Set dbs = OpenDatabase(“Db Name”)

For Each otable In dbs.TableDefs

If UCase(Left(otable.Name, 3)) <> “MSY” Then

ItemName = otable.Name

ItemName = Replace(ItemName, “,”, “–”)

debug.print ItemName

ItemName = “”

End If

Next otable

Set otable = Nothing

Set dbs = Nothing

End Sub

Access link table from different database with vba

yussi ariefiyono — Thu, 08 Apr 2010 07:10:48 +0000

Problem:
you have lots of database with link table in it, and in one time some of path are changed.. rather than change them manually, i create function that can do that for me

Solution:
In this function you can specify the link you want to find and replace it with your new link. it save me lots of time..

Function RelinkTable(setDB As String, FINDtext As String, REPLACEtext As String)

Dim dbs As Database

Dim Tdf As TableDef

Dim Tdfs As TableDefs

Set dbs = OpenDatabase(setDB)

Set Tdfs = dbs.TableDefs

‘Loop through the tables collection

For Each Tdf In Tdfs

If Tdf.SourceTableName <> “” And Tdf.Connect = “;DATABASE=” & FINDtext Then ‘if its the linktable

Tdf.Connect = “;DATABASE=” & REPLACEtext ‘Set the new source

Tdf.RefreshLink ‘Refresh the link

End If

Next ‘Goto next table

Set dbs = Nothing

Set Tdfs = Nothing

End Function

get the latest file with batch command

yussi ariefiyono — Thu, 08 Apr 2010 07:02:16 +0000

Problem:
get the latest file in the folder with batch command, in my case after getting the latest file. i will move it to other directory

Solution:
copy and paste this code, change it according to your need

@echo off

setlocal

:source directory

set srcDir= your source directory

:destination directory

set destdir=your destination directory

set lastmod=

pushd “%srcDir%”

for /f “tokens=*” %%a in (‘dir /b /od 2^>NUL’) do set lastmod=%%a

if “%lastmod%”==”" echo Could not locate files.&goto :eof

:copy

copy “%lastmod%” “%destdir%”

:delete

del “%lastmod%”

enjoy

Google Chrome 4 now natively supports Greasemonkey user scripts

yussi ariefiyono — Thu, 11 Feb 2010 16:58:14 +0000

One thing that got lost in the commotion of the extensions launch is a feature that is near and dear to my heart: Google Chrome 4 now natively supports Greasemonkey user scripts. Greasemonkey is a Firefox extension I wrote in 2004 that allows developers to customize web pages using simple JavaScript and it was the inspiration for some important parts of our extension system.

Installation is quick and easy, just like installing an extension. That’s because under the covers, the user script is actually converted into an extension. This means that management tasks like disabling and uninstalling work just like they do with extensions.

Also keep in mind that some user scripts won’t work in Google Chrome yet, because of differences between it and Firefox. Based on some analysis that the current maintainers of Greasemonkey did, I expect between 15%-25% of scripts to not work in Google Chrome. If you find such a script, you should consider letting the author know. There may be something he or she can do to easily fix the problem. In the meantime, we’ll keep working on bugs on our side to bring our implementation closer to Greasemonkey.

[ via google]