Batch commands

GET FOLDER OF BATCH FILE
SET PrjBase=%~dp0
SET PrjBase=%PrjBase:~0,-1%

C:
IF NOT EXIST C:\WIN\NUL GOTO NOWINDIR
CD \WIN
:NOWINDIR

IF EXIST E:\NUL GOTO USE_E

FOR %%i IN (%PrjBase%) DO IF EXIST %%~si\NUL ECHO %%~si Exists %%i

:: java -jar "%RAINBOW_HOME%\lib\rainbow.jar" -pln pipelines\_merge.pln %TargetFolder%04-post-process\pack1\manifest.rkm -rd "%PrjBase%" -np


<?xml version="1.0" encoding="UTF-8"?>
<rainbowPipeline version="1"><step class="net.sf.okapi.steps.common.RawDocumentToFilterEventsStep"></step>
<step class="net.sf.okapi.steps.rainbowkit.postprocess.MergingStep">#v1
preserveSegmentation.b=false
returnRawDocument.b=false
forceTargetLocale.b=false
overrideOutputPath=</step>
</rainbowPipeline>

SET PrjBase=%~dp0
SET PrjBase=%PrjBase:~0,-1%
SET TargetFolder=target\
SET TmName=workTM
SET TmNameReverse=workTM-reversed
SET SrcLang=EN-US
SET TrgLang=FR-FR
SET Username=fliden

:: Merge a pack
:: java -jar "%RAINBOW_HOME%\lib\rainbow.jar" -pln pipelines\_merge.pln %TargetFolder%04-post-process\pack1\manifest.rkm -rd "%PrjBase%" -np

java -jar "%RAINBOW_HOME%\lib\rainbow.jar" -x TranslationKitPostProcessing %TargetFolder%04-post-process\pack1\manifest.rkm -fc okf_rainbowkit-noprompt -rd "%PrjBase%" -np

pause

VBScript - snippets

Efficiently Reading Large Text Files

http://www.4guysfromrolla.com/webtech/010401-1.shtml 

const ForReading = 1
const TristateFalse = 0
dim strSearchThis
dim objFS
dim objFile
dim objTS
set objFS = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFS.GetFile(Server.MapPath("myfile.txt"))
set objTS = objFile.OpenAsTextStream(ForReading, TristateFalse)

strSearchThis = objTS.Read(objFile.Size)

if instr(strSearchThis, "keyword") > 0 then
    Response.Write "Found it!"
end if

Writing UTF-8 files
http://abouttesting.blogspot.com/2008/04/vbscript-reading-text-files.html

Function getTextFileContent (strFileName, strCharSet)

Const adTypeBinary = 1 'not used
Const adTypeText = 2
'Set default CharSet
If strCharSet = "" Then strCharSet = "ASCII"
' *** CharSets ***
'    Windows-1252
'    Windows-1257
'    UTF-16
'    UTF-8
'    UTF-7
'    ASCII
'    X-ANSI
'   iso-8859-2
Set objStreamFile = CreateObject("Adodb.Stream")
With objStreamFile
    .CharSet = strCharSet
    .Type= adTypeText
    .Open
    .LoadFromFile strFileName
    getTextFileContent = .readText
    .Close
End With
Set objStreamFile = Nothing
End Function