Preislisten umwandeln

::---------Snipp MiniBestellKonvert.bat ----
@Echo off & setlocal
Set "ImportDateiHeute=E:\lief1dez07.txt"  

If not exist "%ImportdateiHeute%" (  
    echo "%ImportdateiHeute%" existiert nicht. Ich brech gleich ab hier...oder  ins Essen.  
    goto :eof
)
REM Später echo Teilenummer  Benennung (ital)            Benennung (franz.)              Bez. deutsch, ....
:::
for /f "delims=" %%i in (%ImportDateiHeute%) do @set "line=%%i" &  call :gibbetAusKommaJetrennt  
goto :eof


:gibbetAusKommaJetrennt
REM Entweder so : echo  "%line:~ 0,13%"; "%line:~13,50%"; "%line:~63,50%"; "%line:~113,50%"; "%line:~163,50%";"%line:~213,10%" )  
REM Oder so:
Set "Teilenummer=%line:~  0, 13%"   && Rem POS  1- 13 Teilenummer  
Set "Bez_ITA=%line:~ 13, 50%"       && Rem POS  14- 63 Benennung italienisch  
Set "BEZ_FRZ=%line:~ 63, 50%"       && Rem POS  64-113 Benennung französisch  
Set "Bez_ENG=%line:~113, 50%"       && Rem POS 114-163 Benennung englisch  
Set "BEZ_DEU=%line:~163, 50%"       && Rem POS 164-213 Benennung deutsch  
:: ########114-213 Benennung deutsch glaub ich nicht
Set "BR_PREIS=%line:~ 214, 10%"      && Rem POS 214-225 Bruttopreis  
Set "RABATTKZ=%line:~ 226, 2%"      && Rem POS 226-227 Rabattkennzeichen  
Set "CodCLA=%line:~ 227, 4%"        && Rem POS 228-231 CodCLA  
Set "Gewicht=%line:~ 231, 7%"       && Rem POS 232-238 Gewicht in Gramm  
Set "TDR=%line:~ 238, 2%"            && Rem POS 239 240 TDR  
Set "ArtNrErsatz=%line:~ 240, 13%"   && Rem POS 241 253 Ersatz-Artikelnummer  
Set "MENGE_MIN=%line:~ 253, 4%"     && Rem POS 254-257 Mndestmenge  
Echo BEZ_FRZ [%BEZ_FRZ%] TeileNr [%Teilenummer%]
Echo BEZ_ITA [%BEZ_ITA%] 
Echo BEZ_ENG [%BEZ_ENG%] 
Echo BEZ_DEU [%BEZ_DEU%] 
Echo TDR [%TDR%] Gewicht [%Gewicht%]
goto :eof

>e:\minibestellkonvert
BEZ_FRZ [CART.FILTRE AIRE                                  ] TeileNr [0000001908112]
BEZ_ITA [ELEMENTO FILTRO ARIA                              ]
BEZ_ENG [AIR FILTER CARTRIDGE                    @@@@@@@@@@]
BEZ_DEU [PATRONE-LUFTFFILTERPATRONE                        ]
TDR [AF] Gewicht [0000500]
BEZ_FRZ [JOINT BOITE VITESS                                ] TeileNr [0000001908113]
BEZ_ITA [GUARNI###E PIANA PER CAMBIO                      ]
BEZ_ENG [FLAT TRANSMISSION GASKET                          ]
BEZ_DEU [DICHTUNG-FLACHDICHTUNG GETRIEBE                   ]
TDR [CF] Gewicht [0000039]
BEZ_FRZ [JOINT                                             ] TeileNr [0000001908114]
BEZ_ITA [GUARNI###E                                       ]
BEZ_ENG [GASKET                                            ]
BEZ_DEU [DICHTUNG-DICHTUNG                                 ]
TDR [C ] Gewicht [0000008]
BEZ_FRZ [SUPPORT/APPUI                                     ] TeileNr [0000001908117]
BEZ_ITA [SUPPORTO                                          ]
BEZ_ENG [SUPPORT                                           ]
BEZ_DEU [STUETZE-STUETZE                                   ]
TDR [C ] Gewicht [0000550]
BEZ_FRZ [JEU DE RIDEAU ACC.                                ] TeileNr [0000001908121]
BEZ_ITA [SERIE TENDINE                          (ACCESSORI)]
BEZ_ENG [CURTAINS SET                           (ACCESSORY)]
BEZ_DEU [SATZ-VORHANGSATZ                        (ZUBEHOER)]
TDR [X ] Gewicht [0001920]

<?
$str = "0000001908112ELEMENTO FILTRO ARIA                              CART.FILTRE AIRE                                  AIR FILTER CARTRIDGE                    @@@@@@@@@@PATRONE-LUFTFFILTERPATRONE                        000000019,20 9AC450000500AF             0001  
0000001908113GUARNI###E PIANA PER CAMBIO                      JOINT BOITE VITESS                                FLAT TRANSMISSION GASKET                          DICHTUNG-FLACHDICHTUNG GETRIEBE                   000000013,19 7BD200000039CF             0001
0000001908114GUAR/IZ.IO-E                                      JOINT                                             GASKET                                            DICHTUNG-DICHTUNG                                 000000004,06 5BB990000008C              0001
0000001908117SUPPORTO                                          SUPPORT/APPUI                                     SUPPORT                                           STUETZE-STUETZE                                   000000015,32 5MC990000550C              0001
0000001908121SERIE TENDINE                          (ACCESSORI)JEU DE RIDEAU ACC.                                CURTAINS SET                           (ACCESSORY)SATZ-VORHANGSATZ                        (ZUBEHOER)000000156,16 2YB060001920X              0001";  

$arraystring=explode("\n",$str);  
echo $str;
foreach($arraystring as $v){
	if(eregi("([0-9]{13})([-/\.@\(\)[:alpha:] ]{50})([-/\.@\(\)[:alpha:] ]{50})([-/\.@\(\)[:alpha:] ]{50})([-/\.@\(\)[:alpha:] ]{50})([0-9,]{12}) ([0-9]{1})([A-Z0-9]{4})([0-9]{7})([A-Z]{1})([A-Z ]{1}).*([0-9]+)",$v,$regs)){  
		/*
			[1] => 0000001908112
		    [2] => ELEMENTO FILTRO ARIA                              
		    [3] => CART.FILTRE AIRE                                  
		    [4] => AIR FILTER CARTRIDGE                    @@@@@@@@@@
		    [5] => PATRONE-LUFTFFILTERPATRONE                        
		    [6] => 000000019,20
		    [7] => 9
		    [8] => AC45
		    [9] => 0000500
		    [10] => A
		    [11] => F
		    [12] => 1
		*/
		print_r($regs);
	}
}
?>

' VB Script Document  
'Erstellt als helptesk 4 Thread  
'[content:76158]  
'18.12.2007 19:44:39  
'pacobay  
'testet on XPP / WSH 5.7 für XP  

'target  
'	Umwandlung von Daten aus einer txtdatei (mit feste Feldgroesse)  
'   in eine txtdatei von Datensätze mit Trennzeichen  
'   diverse Feldumwandlungen Trim etc  
'   Code soll möglichst für Nicht- VBSler zu warten sein  
'   Nicht- VBSler müssen lediglich die Konstanten (Const) anpassen  
'   Die Aufteilung der Datensätze in Parts soll es ihm ermöglichen  
'   die Anzahl der Parts beliebig zu verändern  
'	via del or copy&paste+laufende Nr anpassen UND OUTPUTSTRING (OutDS)  
'   unter Umständen Bereich Headline scharfmachen  
'   Datenkonvertierungen sind ggf. löschenbar  
'*********************************************************************  
'  
Option Explicit
'  
'Deklaration der Objekte  
Dim WshShell
Set WshShell = Wscript.CreateObject("Wscript.Shell")  
'---------------------------  
Dim FSO, FileIn, FileOut
Set FSO = CreateObject("Scripting.FileSystemObject")  
'---------------------------  
'  
'Ein paar Variablen für meine Art der Popup Messages  
'  
DIM strTITELs		   ' Meldungstitel im Script festgelegt    [InBox & PopUp]  
DIM strMSGs            ' Meldungstexte für Messages                    [PopUp]  
DIM numShowTimeS       ' im Script festgelegte Anzeigezeit in sec      [PopUp]  
DIM numBtnCodeR        ' ReturnCode Wert des geklickten Buttons        [PopUp]  
'  
'---------------------------  
'  
' Diesen Abschnitt(Pfad&Dateiname)ensprechend anpassen  
'  
Const Input        = "C:\just4Test\InputSupp01.txt"  
Const Output       = "C:\just4Test\OutputSupp01.txt"  
'  
'---------------------------  
' Das Trennzeichen in dem Output definieren ggf. anpassen  
'  
Const TZ =";"                       'Trennzeichen  
'---------------------------  
Dim AZDs                            'Anzahl der verarbeiteten Datensätze  
'---------------------------  
'  
Dim InDS							'InputDatensatz  
Dim OutDS							'OutputDatensatz  
'---------------------------  
'  
' Aus Deinem Posting geht hervor:  
  ' 1-13    Teilenummer  
  ' 14-63   Bezeichnung italienisch  
  ' 64-113  Bezeichnung französisch  
  ' 114-213 Bezeichnung deutsch  
  ' 214-225 Bruttopreis  
  ' 226-227 Rabattkennzeichen  
  ' 228-231 CodCLA  
  ' 232-238 Gewicht in Gramm  
  ' 239-240 TDR  
  ' 241-253 Ersatz-Artikelnummer  
  ' 254-257 Mindestmenge  
'  
'---------------------------  
'  
'  
'  
DIM   Part01
Const P01Bez        = "Teilenummer"                 'vgl Exkurs Headline  
Const Part01Start   = 1
Const Part01Ende    = 13
'  
DIM   Part02
Const P02Bez        = "Bezeichnung italienisch"  
Const Part02Start   = 14
Const Part02Ende    = 63
'  
DIM   Part03
Const P03Bez        = "Bezeichnung französisch"  
Const Part03Start   = 64
Const Part03Ende    = 113
'  
DIM   Part04
Const P04Bez        = "Bezeichnung deutsch"  
Const Part04Start   = 114
Const Part04Ende    = 213
'  
DIM   Part05
Const P05Bez        = "Bruttopreis"  
Const Part05Start   = 214
Const Part05Ende    = 225
'  
DIM   Part06
Const P06Bez        = "Rabattkennzeichen"  
Const Part06Start   = 226
Const Part06Ende    = 227
'  
DIM   Part07
Const P07Bez        = "CodCLA"  
Const Part07Start   = 228
Const Part07Ende    = 231
'  
DIM   Part08
Const P08Bez        = "Gewicht in Gramm"  
Const Part08Start   = 232
Const Part08Ende    = 238
'  
DIM   Part09
Const P09Bez        = "TDR"  
Const Part09Start   = 239
Const Part09Ende    = 240
'  
DIM   Part10
Const P10Bez        = "Ersatz-Artikelnummer"  
Const Part10Start   = 241
Const Part10Ende    = 253
'  
DIM   Part11
Const P11Bez        = "Mindestmenge"  
Const Part11Start   = 254
Const Part11Ende    = 257
'  
'  
'Davon ausgehend, dass Lieferant Nettobreise in Euro liefert  
' benötigen man u.U. zur Berechnung des Bruttoverkaufspreises noch  
'  
Const MwStSatz=19             	'der Mehrwertsteuersatz  
DIM bVKP							'BruttoVK  
'  
'Diese Berechnung ist bedingt durch fehlende Infos noch nicht ausgeführt  
'  
'*********************************************************************  
'Ende der Deklaration  
'*********************************************************************  
'  
'  
'Einige Hilfsprozeduren  
'  
'Für Funktion Ersetze  
dim SuchString, Suchmuster, ErsatzMuster

' Aufrufbeispiel:  
'  SuchString=  "Franz jagt im komplett verwahrlosten Taxi quer durch Bayern."  
'  Suchmuster="Taxi"  
'  ErsatzMuster="Auto"  
'  WScript.echo Ersetze(SuchString,Suchmuster, ErsatzMuster)  
'  
'  
Function Ersetze(SuchString,Suchmuster, ErsatzMuster)
'  
  Dim regAusdr			               ' Variablen erstellen.  
  Set regAusdr = New RegExp            ' Erstellt einen regulären Ausdruck.  
  regAusdr.Pattern = Suchmuster        ' Legt das Suchmuster fest.  
  regAusdr.IgnoreCase = True           ' Ignoriert die Groß-/Kleinschreibung.  
  regAusdr.Global = True               ' Legt globales Anwenden fest.  
'  
  ' Führe nun die Ersetzung durch und weise es als Funktionswert zu.  
  	  Ersetze=regAusdr.Replace(SuchString,ErsatzMuster)
End Function
'  
'-------------------------------------------------------------------  
'  
SUB CheckInFile
' Püfen ob Inputdatei gefunden werden kann  
' if yes then öffnen als Vorbereitung zur weiteren Verarbeitung  
' If not Info & Abbruch  
'  
If fso.FileExists(Input) then
   Set FileIn  = FSO.OpenTextFile( Input, 1, true)
else
'  
numShowTimeS   = 0
strTITELs	   ="Input-Fehler"  
strMSGs       =+_
"Folgende Datei konnte nicht gefunden werden!" &chr(13)&chr(13)&+_  
Input &chr(13)&chr(13)&+_
"Das Script wird abgebrochen"&chr(13)&chr(13)&chr(9)&"Pls check:"&chr(9)&chr(9)&"Inputfile-Konstante (in the script)"&chr(13)&chr(9)&"or:" &chr(9)&chr(9)&"The Input-File himself"  
'  
WshShell.popup strMSGs,numShowTimeS,strTITELs,16+4096
'  
Wscript.Quit
end if
'  
END SUB 'CheckInFile  
'  
'-------------------------------------------------------------------  
'  
SUB CheckOutFile
'  
' Prüfen ob Outputdatei bereits vorhanden ist  
' if not weiter mit öffnen der Datei als Vorbereitung zur weiteren Verarbeitung  
'  
' if there then: Abfrage ob diese gelöscht werden kann Optionen: Ok oder Abbruch  
	 'Option: OK  
	 	 ' dann halt löschen und weiter mit  
	 	 ' öffnen der Datei als Vorbereitung zur weiteren Verarbeitung  
'  
	 'Option: Abbrechen  
	 		 'Abbruch  
'  
'  
If fso.FileExists(Output) then
numShowTimeS   = 0
strTITELs	   ="Check 4 OutputFile"  
strMSGs       =+_
"Die vorgesehene Output Datei ist bereitsvorhanden!" &chr(13)&chr(13)&+_  
Output &chr(13)&chr(13)&+_
"Kann die Datei gelöscht werden?"&chr(13)&chr(13)&chr(9)&"OK:"&chr(9)&chr(9)&"delete and go on"&chr(13)&chr(9)&"Abbrechen:" &chr(9)&"Scriptende"  
'  
numBtnCodeR=WshShell.popup(strMSGs,numShowTimeS,strTITELs,1+32+4096)
'  
'  
'Auswertung des Geklickten  
'  
SELECT CASE numBtnCodeR
         CASE  1  ' OK  
		 	   fso.DeleteFile(Output)
			   	 Wscript.sleep 5000  'gibt dem Script etwas Zeit  
		 	   Wscript.echo "file should be killed"  
'  
         CASE  2  ' Abbrechen  
         	   Wscript.echo "Abbruch durch Anwender"  
         	   Wscript.Quit
      END SELECT
'  
else
' Na dann gehts einfach weiter  
end if
'  
 ' öffnen der Datei als Vorbereitung zur weiteren Verarbeitung  
'  
Set FileOut = fso.OpenTextFile( output,8,true)
'  
'---------------------------  
'  
'Exkurs  
'Unter bestimmten Umständen kann eine Feldbezeichnungskopfzeile gewünscht werden  
'Diese wird hier zwar erstellt aber nicht umgesetzt da im Thread nicht benötigt  
'Einfach als Vorgriff für allgemeine Verwendbarkeit  
' Daher zur Zeit auskommentiert  
' Achtung als 12ter Wert ist noch der BruttoVerkaufspreis (bVKP) angefügt  

' DIM HEADLINE  
' HEDLINE=P01Bez&TZ&P02Bez&TZ&P03Bez&TZ&P04Bez&TZ&P05Bez&TZ&P06Bez&TZ&P07Bez&TZ&P08Bez&TZ&P09Bez&TZ&P10Bez&TZ&P11Bez&TZ&"bVKP"&TZ  
' FileOut.WriteLine(HEADLINE)          'schreibt OutDs in Outputfile  
'  
'  
END SUB 'CheckInFile  
'-------------------------------------------------------------------  
'-------------------------------------------------------------------  
'-------------------------------------------------------------------  
'Der eigentliche ArbeitsSUB  
'-------------------------------------------------------------------  

SUB DoTheWork
'Der InputFile (FileIn) wurde schon unter CheckInFile geöffnet  

' bis InputFile zu Ende ist, immer weiter machen  
Do While Not (FileIn.atEndOfStream)
InDS = FileIn.Readline         ' eine Zeile lesen und als Datensatz DS verwenden  

'----------------------  
'NUN wir der jeweilige inDS in seine Bestandteile (parts01 bis 11) zerlegt  
' Die Ergebnisse habe ich zumeist zusätzlich "getrimmt"  

' TRIM  
' gibt eine Kopie einer Zeichenfolge zurück, die keine führenden Leerzeichen  
' (LTrim), keine nachgestellten Leerzeichen (RTrim) oder weder führende noch  
' nachgestellte Leerzeichen (Trim) enthält.  


part01 = trim (right(Left(inDS,part01Ende),part01ENDE-part01Start+1))

'__________  

' Part01 fertig aber gleich noch die gewünschte Veränderung des Inhaltes.  

'Kann man bei der Teilenummer die führenden Nullen irgendwie entfernen?  
'Ja wie folgt:  
Do until Left(part01,1)<>"0"   
part01=right(part01,len(Part01)-1)
loop

'__________  
'__________  

'Weiter mit den nächsten Parts  

part02 = trim (right(Left(inDS,part02Ende),part02ENDE-part02Start+1))
part03 = trim (right(Left(inDS,part03Ende),part03ENDE-part03Start+1))
part04 = trim (right(Left(inDS,part04Ende),part04ENDE-part04Start+1))

'__________  

' Wieder gleich noch die gewünschte Veränderung des Inhaltes.  

' Kann man bei den Teilebezeichungen die Leerstellen entfernen?  
' schönen Gruß an den Hersteller seine Datenübergabe ist sch...  
' Aber klagen hilft wohl nichts und daher Rückgriff auf die Funktion Ersetze  

  Suchmuster   = chr(32)&chr(32)  	' zwei Leerstellen  
  ErsatzMuster = chr(32)			' eine Leerstellen  


Dim i
i=0
Do until i=50
  part02= Ersetze(part02,Suchmuster, ErsatzMuster)
  part03= Ersetze(part03,Suchmuster, ErsatzMuster)
  part04= Ersetze(part04,Suchmuster, ErsatzMuster)
  i=i+1
loop

'__________  
'__________  

'Bruttopreis (Einkauf)  
'Abweichend kein Trim sondern CCur-Funktion  
'Gibt einen Ausdruck zurück, der in einen Wert vom Typ Variant  
'mit Untertyp Currency konvertiert wurde.  

part05 = CCur (right(Left(inDS,part05Ende),part05ENDE-part05Start+1))

'__________  

'Thema Verkaufspreis  

 ' Wscript.echo part05  'nur zu Testzwecken  
'Deine Frage war: Ist es möglich eine VK-Formel auf den Bruttopreis anzuwenden? So kleiner 5€ 40%, kleiner 50€ 30% kleiner 50 20%?  

' Habe verstanden Du wolltest auch noch einen Verkaufspreis in Abhängigkeit des EKpreises berechnen  
' zur Umsetzung Zusatzinformationen notwendig  
' Einkauspreise wirklich brutto ungewöhlich but if so: enthaltender MwStsatz?  
' Verkaufswert Brutto or netto or beides  
' Formel für Verkaufspreisfestlegung  


 'zur Zeit einfach  

bVKP = part05

' Nur als Beispielsansatz wie mit diesen Infos weitergearbeitet würde  
'Beispiele für allg. SELECT CASE  
    'SELECT CASE bVKP  
      ' ' ist BruttoVK = 5?  
      '   CASE 5  
	  	  	   'bVKP=part05  
      ' ' ist bVKP zwischen 5 und 10?  
      ' ' Die kleinere Zahl muss zuerst angegeben werden  
      '   CASE 5 TO 10  
      ' ' ist bVKP größer als 5?  
      '   CASE IS > 5  
      ' END SELECT  
'  
'__________  
'  
'  
part06 = trim (right(Left(inDS,part06Ende),part06ENDE-part06Start+1))
part07 = trim (right(Left(inDS,part07Ende),part07ENDE-part07Start+1))
part08 = trim (right(Left(inDS,part08Ende),part08ENDE-part08Start+1))
part09 = trim (right(Left(inDS,part09Ende),part09ENDE-part09Start+1))
part10 = trim (right(Left(inDS,part10Ende),part10ENDE-part10Start+1))
'  
'  
'__________  
'  
part11 = trim (right(Left(inDS,part11Ende),part11ENDE-part11Start+1))
'  
'__________  
'  
'Die Mindestbestellmenge hat wie Teilenummer führenden Nullen  
' also auch weg damit  
Do until Left(part11,1)<>"0"  
part11=right(part11,len(Part11)-1)
loop
'__________  
'__________  
'  
'  
' Nun erfolgt Die Zusammenstellung des Übergabestrings  
'  
' Der Übergabesrting habbe ich in recht primitiver Form zusammengestellt  
' Aber durch diese Art der Übergabe kannst Du auch als Nicht-Vbsler   
' die Reihenfolge leicht anpassen.  
' Je nachdem in welcher Reihenfolge Sie für den Import verwendet werden sollen  
' Auf die Verbindung mit TZ dem Trennzeichen achten!  
'  
' Achtung als 12ter Wert ist noch der BruttoVerkaufspreis angefügt  
'  
OutDS=part01&TZ&part02&TZ&part03&TZ&part04&TZ&part05&TZ&part06&TZ&part07&TZ&part08&TZ&part09&TZ&part10&TZ&part11&TZ&bVKP&TZ
'  
'Und wegschreiben  
FileOut.WriteLine(outDS)          'schreibt OutDs in Outputfile  
'  
'_______________  
'  
'Noch die Anzahl um eins erhöhen rein zu Statistikzwecken  
AzDs=AZDs+1
'  
'_______________  
'  
loop   ' und weiter zur und dann auf zur nächsten Input-Zeile  
'  
'  
END SUB                 'DoTheWork  
'  
'-------------------------------------------------------------------  
'-------------------------------------------------------------------  
'  
'  
' Noch ein kleiner HilfSUB Um das Ende anzuzeigen  
'  
SUB Fertig
WScript.Echo "Ich habe fertig!" &Chr(13)&Chr(13)&+_  
"Anzahl der verarbeiteten Zeilen: "&AzDs  
END SUB 'Fertig  
'  
'  
'-------------------------------------------------------------------  
'  
'Ein MainSUB um die einzelnen SUBs aufzurufen  
'  
SUB MAIN
	CheckInFile
	CheckOutFile
	DoTheWork
	Fertig
END SUB

'  
'-------------------------------------------------------------------  
'  
'Der letzendliche Aufruf des ganzen Tralala  
'  
MAIN
'  
'-------------------------------------------------------------------  
'  
' EOF  

::---------Snipp MiniBestellKonvert.bat ----
@Echo off & setlocal
Set "ImportDateiHeute=preise.txt"  

If not exist "%ImportdateiHeute%" (  
    echo "%ImportdateiHeute%" existiert nicht. Ich brech gleich ab hier...oder  ins Essen.  
    goto :eof
)
REM Später echo Teilenummer  Benennung (ital)            Benennung (franz.)              Bez. deutsch, ....
:::
for /f "delims=" %%i in (%ImportDateiHeute%) do @set "line=%%i" &  call :gibbetAusKommaJetrennt  
goto :eof


:gibbetAusKommaJetrennt
REM Entweder so : echo  "%line:~ 0,13%"; "%line:~13,50%"; "%line:~63,50%"; "%line:~113,50%"; "%line:~163,50%";"%line:~213,10%" )  
REM Oder so:
Set "Teilenummer=%line:~  0, 13%"   && Rem POS  1- 13 Teilenummer  
Set "Bez_ITA=%line:~ 13, 50%"       && Rem POS  14- 63 Benennung italienisch  
Set "BEZ_FRZ=%line:~ 63, 50%"       && Rem POS  64-113 Benennung französisch  
Set "Bez_ENG=%line:~113, 50%"       && Rem POS 114-163 Benennung englisch  
Set "BEZ_DEU=%line:~163, 50%"       && Rem POS 164-213 Benennung deutsch  
:: ########114-213 Benennung deutsch glaub ich nicht
Set "BR_PREIS=%line:~ 214, 10%"     && Rem POS 214-225 Bruttopreis  
Set "RABATTKZ=%line:~ 226, 2%"      && Rem POS 226-227 Rabattkennzeichen  
Set "CodCLA=%line:~ 227, 4%"        && Rem POS 228-231 CodCLA  
Set "Gewicht=%line:~ 231, 7%"       && Rem POS 232-238 Gewicht in Gramm  
Set "TDR=%line:~ 238, 2%"           && Rem POS 239 240 TDR  
Set "ArtNrErsatz=%line:~ 240, 13%"  && Rem POS 241 253 Ersatz-Artikelnummer  
Set "MENGE_MIN=%line:~ 253, 4%"     && Rem POS 254-257 Mndestmenge  
:: Nebenrechnung I: die BEZ_xxx-Felder RTrimmen
For %%i in (BEZ_ITA BEZ_FRZ BEZ_ENG BEZ_DEU) do call :Char50ToVarChar %%i
::Nebenrechnung II - Führende Nullen der Teilenummer entfernen
call :CutLeadingZeros Teilenummer
:: Echo "%Teilenummer%";"%BEZ_ITA%";"%BEZ_FRZ%";"%BEZ_ENG%";"%BEZ_DEU%";"%BR_PREIS%";"%RABATTKZ%";"%CodCLA%";"%Gewicht%";"%TDR%";"%ArtNrErsatz%";"%MENGE_MIN%" >preis.csv 
Echo BEZ_FRZ [%BEZ_FRZ%] TeileNr [%Teilenummer%]
Echo BEZ_ITA [%BEZ_ITA%] 
Echo BEZ_ENG [%BEZ_ENG%] 
Echo BEZ_DEU [%BEZ_DEU%] 
Echo TDR [%TDR%] Gewicht [%Gewicht%]
goto :eof

:Char50ToVarchar Parameter1ist der Name der Variablen z.B BEZ_FRZ
Setlocal enableDelayedExpansion
Set "Charvar=!%1!" & Set "len="  
for /L %%i in (1,1,50) do if "!Charvar:~-%%i,1!" NEQ " " if not defined len set /a len=51-%%i  
if defined len Set "Charvar=!Charvar:~0,%len%!"  
endlocal & set "%1=%Charvar%"  
goto :eof

:CutLeadingZeros
Setlocal enableDelayedExpansion
Set "Charvar=!%1!" & Set "Start="  
For /L %%i in (0,1,13) do if "!Charvar:~%%i,1!" NEQ "0" if not defined Start set /a start=%%i  
if defined Start Set "Charvar=!Charvar:~%start%!"  
endlocal & set "%1=%Charvar%"  
goto :eof

Const Input        = "C:\just4Test\InputSupp01.txt"  
Const Output      = "C:\just4Test\OutputSupp01.txt"  

Const TZ =";"       'Trennzeichen  

Const P01Bez        = "Teilenummer"                  
Const Part01Start   = 1
Const Part01Ende    = 13

HEADLINE=P01Bez&TZ&P02Bez&TZ&P03Bez&TZ&P04Bez&TZ&P05Bez&TZ&P06Bez&TZ&P07Bez&TZ&P08Bez&TZ&P09Bez&TZ&P10Bez&TZ&P11Bez&TZ&"bVKP"&TZ  

OutDS=part01&TZ&part02&TZ&part03&TZ&part04&TZ&part05&TZ&part06&TZ&part07&TZ&part08&TZ&part09&TZ&part10&TZ&part11&TZ&bVKP&TZ

SUB createbVKP

bVKP=part05

		   if bVKP <5 	                then bVKP = CCur (bVKP * 1.4)
		   if bVKP >= 5 and bVKP < 50	then bVKP = CCur (bVKP * 1.3)
		   if bVKP >= 50		then bVKP = CCur (bVKP * 1.2)

END SUB    'createbVKP  

Teilenummer;Bezeichnung italienisch;Bezeichnung französisch;Bezeichnung deutsch;Bruttopreis;Rabattkennzeichen;CodCLA;Gewicht in Gramm;TDR;Ersatz-Artikelnummer;Mindestmenge;bVKP;
1908112;ELEMENTO FILTRO ARIA;CART.FILTRE AIRE;AIR FILTER CARTRIDGE @@@@@@@@@@PATRONE-LUFTFFILTERPATRONE;19,2;9;AC45;0000500;AF;;1;24,96;

:: Ganz oben bei den allgemeinen SETs
SET /a OneBillion=1000000000
....

:: Neu statt der Zeile SET BR_PREIS= ..." oben:  

SET "BR_VK=1%line:~ 214, 9%"  
SET "BR_NK=1%line:~ 224, 2%"  

:: dann sieht der Wert %BR_VK% so aus: "1000000015" bei einem Eintrag "000000015,32"  
set /a br_vk=br_vk-onebillion
SET /a br_nk=br_nk-100

:: jetzt hat br_vk den Wert 15 (als Zahl) und br_nk den Wert  32 als Zahl
Set /a BR_inCent=(100*br_vk) + br_nk
:. jetzt hat br_inCent den Wert 1532
::Standard-Aufschlag 40%....
Set /a Aufschlag=140
if BR_incent GEQ  500 set /a "Aufschlag=130"  
if BR_incent GEQ 5000 set /a "Aufschlag=120"  
Set /a Br_MitAufschlag=(br_incent*Aufschlag) / 100
:: ergibt bei einem Wert von 1532--> (1532*130)/100 = 1991
:. ...

Hallo Leute,
hat doch etwas länger gedauert hatte zwischenzeitlich Mist gebaut.

Aber nun glaube ich: Ich habe fertig!

Hat mir bisher viel Spass gemacht und habe auch was dabei gelernt!

'-------------------------------------------------------------------  

Nun werden durch den SUB DoTheWork 
10 TSd Datensätze in unter 10 sekunden verarbeitet   meep meep :-)
Bastla sei Dank 

'--------------  
Daher auch folgende Änderung:

'Sollen Leerstellen in den Teilebeschreibungen entfernt werden  
Const LSdeleteYN = 1    'JA = 1 Nein = 0  

' Ist auf default ja (1) gesetzt da nun kein Problem mehr   
' Im Prinzip benötigen wir den Schalter nicht mehr  
' Aber wo er schon mal da ist  

'-------------------------------------------------------------------  
Das mit den Hochkommas habe ich gelassen

By the way 
Datensatz steht i.A. für die ganze Datenzeile
der aus verschiedenen Feldern Feldern besteht.

'-------------------------------------------------------------------  
'-------------------------------------------------------------------  

'-------------------------------------------------------------------  

Aktuelles Script ist WandelPreislisteV06.vbs
 
(V03+V04+04 werden nicht mehr veröffentlicht sind veraltet)
'-------------------------------------------------------------------  

' VB Script Document  
'Erstellt als helptesk 4 Thread  
'[content:76158]  
'ergänzender Tread  
' [content:76371]  

'20.12.2007 11:35:05  
'pacobay  

'testet on XPP / WSH 5.7 für XP  

'target  
'	Umwandlung von Daten aus einer txtdatei (mit feste Feldgroesse)  
'   in eine txtdatei von Datensätze mit Trennzeichen  
'   diverse Feldumwandlungen Trim etc  
'   Code soll möglichst für Nicht- VBSler zu warten sein  
'   Nicht- VBSler müssen lediglich die Konstanten (Const) anpassen  
'   Die Aufteilung der Datensätze in Parts soll es ihm ermöglichen  
'   die Anzahl der Parts beliebig zu verändern  
'	via del or copy&paste+laufende Nr anpassen UND OUTPUTSTRING (OutDS)  
'   unter Umständen Bereich Headline scharfmachen  
'   Datenkonvertierungen sind ggf. löschenbar  
'*********************************************************************  
'  
Option Explicit
'  
'Deklaration der Objekte  
Dim WshShell
Set WshShell = Wscript.CreateObject("Wscript.Shell")  
'---------------------------  
Dim FSO, FileIn, FileOut
Set FSO = CreateObject("Scripting.FileSystemObject")  
'---------------------------  
'  
'Ein paar Variablen für meine Art der Popup Messages  
'  
DIM strTITELs		   ' Meldungstitel im Script festgelegt    [InBox & PopUp]  
DIM strMSGs            ' Meldungstexte für Messages                    [PopUp]  
DIM numShowTimeS       ' im Script festgelegte Anzeigezeit in sec      [PopUp]  
DIM numBtnCodeR        ' ReturnCode Wert des geklickten Buttons        [PopUp]  
'objCRPopUp  
'---------------------------  
'  
' Diesen Abschnitt(Pfad&Dateiname)ensprechend anpassen  
'  
Const Input        = "C:\just4Test\InputSupp10000.txt"  
Const Output       = "C:\just4Test\OutputSupp01.txt"  
'  
'---------------------------  
' Das Trennzeichen in dem Output definieren ggf. anpassen  
'  
Const TZ =";"                       'Trennzeichen  
'---------------------------  
Dim Headline

 'Soll eine Headline ausgegeben werden JA = 1 Nein = 0  
Const HeadlineYesNo = 1


'Thema: Headline  
'Unter bestimmten Umständen kann eine Kopfzeile mit den Feldbezeichnungen gewünscht werden  
' Achtung als 12ter Wert ist noch der BruttoVerkaufspreis (bVKP) angefügt  
'  
'---------------------------  
'Sollen Leerstellen in den Teilebeschreibungen entfernt werden  
Const LSdeleteYN = 1    'JA = 1 Nein = 0  

' Ist auf default ja (1) gesetzt da nun kein Problem mehr dank Bastla  
' Im Prinzip benötigen wir den Schalter nicht mehr  
' Aber wo er schon mal da ist  
'---------------------------  

Dim AZDs                            'Anzahl der verarbeiteten Datensätze  
'---------------------------  
'  
Dim InDS							'InputDatensatz  
Dim OutDS							'OutputDatensatz  
'---------------------------  
'  
' Aus Deinem Posting geht hervor:  
  ' 1-13    Teilenummer  
  ' 14-63   Bezeichnung italienisch  
  ' 64-113  Bezeichnung französisch  
  ' 114-213 Bezeichnung deutsch  
  ' 214-225 Bruttopreis  
  ' 226-227 Rabattkennzeichen  
  ' 228-231 CodCLA  
  ' 232-238 Gewicht in Gramm  
  ' 239-240 TDR  
  ' 241-253 Ersatz-Artikelnummer  
  ' 254-257 Mindestmenge  
'  
'---------------------------  
'  
'  
'  
DIM   Part01
Const P01Bez        = "Teilenummer"                  
Const Part01Start   = 1
Const Part01Ende    = 13
'  
DIM   Part02
Const P02Bez        = "Bezeichnung italienisch"  
Const Part02Start   = 14
Const Part02Ende    = 63
'  
DIM   Part03
Const P03Bez        = "Bezeichnung französisch"  
Const Part03Start   = 64
Const Part03Ende    = 113
'  
DIM   Part04
Const P04Bez        = "Bezeichnung deutsch"  
Const Part04Start   = 114
Const Part04Ende    = 213
'  
DIM   Part05
Const P05Bez        = "Bruttopreis"  
Const Part05Start   = 214
Const Part05Ende    = 225
'  
DIM   Part06
Const P06Bez        = "Rabattkennzeichen"  
Const Part06Start   = 226
Const Part06Ende    = 227
'  
DIM   Part07
Const P07Bez        = "CodCLA"  
Const Part07Start   = 228
Const Part07Ende    = 231
'  
DIM   Part08
Const P08Bez        = "Gewicht in Gramm"  
Const Part08Start   = 232
Const Part08Ende    = 238
'  
DIM   Part09
Const P09Bez        = "TDR"  
Const Part09Start   = 239
Const Part09Ende    = 240
'  
DIM   Part10
Const P10Bez        = "Ersatz-Artikelnummer"  
Const Part10Start   = 241
Const Part10Ende    = 253
'  
DIM   Part11
Const P11Bez        = "Mindestmenge"  
Const Part11Start   = 254
Const Part11Ende    = 257
'  
'  
DIM bVKP							' BruttoVK ist im Output zusäzlich als  
									' letzter Wert hinzugefügt  
'  
'  
'*********************************************************************  
'Ende der Deklaration  
'*********************************************************************  

'Thema Verkaufspreis  

' Formel für Verkaufspreisfestlegung  
'kleiner 5€ 40%, kleiner 50€ 30% und größer 50€ 20%  

'Habe hieefür einen Sub geschrienen damit Du es einfacher anpassen kannst  

SUB createbVKP

bVKP=part05

		   if bVKP <5 					then bVKP = CCur (bVKP * 1.4)
		   if bVKP >= 5 and bVKP < 50	then bVKP = CCur (bVKP * 1.3)
		   if bVKP >= 50				then bVKP = CCur (bVKP * 1.2)

END SUB    'createbVKP  

'*********************************************************************  
'  
'Einige Hilfsprozeduren  
'  
'für  Funktion Ersetze  
dim objRA, SuchString, Suchmuster, ErsatzMuster

Suchmuster   = " +"   ' zwei Leerstellen  
ErsatzMuster = " "    ' eine Leerstellen  

Function Ersetze(SuchString,Suchmuster, ErsatzMuster)
'  
 SET objRA = new RegExp
 objRA.pattern = Suchmuster            ' Legt das Suchmuster fest.  
 objRA.Global = True               ' Legt globales Anwenden fest.  
'  
  ' Führe nun die Ersetzung durch und weise es als Funktionswert zu.  
    Ersetze=objRA.Replace(SuchString,ErsatzMuster)
 End Function
'  
'-------------------------------------------------------------------  
'  
SUB CheckInFile
' Püfen ob Inputdatei gefunden werden kann  
' if yes then öffnen als Vorbereitung zur weiteren Verarbeitung  
' If not Info & Abbruch  
'  
If fso.FileExists(Input) then
   Set FileIn  = FSO.OpenTextFile( Input, 1, true)
else
'  
numShowTimeS   = 0
strTITELs	   ="Input-Fehler"  
strMSGs       =+_
"Folgende Datei konnte nicht gefunden werden!" &chr(13)&chr(13)&+_  
Input &chr(13)&chr(13)&+_
"Das Script wird abgebrochen"&chr(13)&chr(13)&chr(9)&"Pls check:"&chr(9)&chr(9)&"Inputfile-Konstante (in the script)"&chr(13)&chr(9)&"or:" &chr(9)&chr(9)&"The Input-File himself"  
'  
WshShell.popup strMSGs,numShowTimeS,strTITELs,16+4096
'  
Wscript.Quit
end if
'  
END SUB 'CheckInFile  
'  
'-------------------------------------------------------------------  
'  
SUB CheckOutFile
'  
' Prüfen ob Outputdatei bereits vorhanden ist  
' if not weiter mit öffnen der Datei als Vorbereitung zur weiteren Verarbeitung  
'  
' if there then: Abfrage ob diese gelöscht werden kann Optionen: Ok oder Abbruch  
	 'Option: OK  
	 	 ' dann halt löschen und weiter mit  
	 	 ' öffnen der Datei als Vorbereitung zur weiteren Verarbeitung  
'  
	 'Option: Abbrechen  
	 		 'Abbruch  
'  
'  
If fso.FileExists(Output) then
numShowTimeS   = 0
strTITELs	   ="Check 4 OutputFile"  
strMSGs       =+_
"Die vorgesehene Output Datei ist bereitsvorhanden!" &chr(13)&chr(13)&+_  
Output &chr(13)&chr(13)&+_
"Kann die Datei gelöscht werden?"&chr(13)&chr(13)&chr(9)&"OK:"&chr(9)&chr(9)&"delete and go on"&chr(13)&chr(9)&"Abbrechen:" &chr(9)&"Scriptende"  
'  
numBtnCodeR=WshShell.popup(strMSGs,numShowTimeS,strTITELs,1+32+4096)
'  
'  
'Auswertung des Geklickten  
'  
SELECT CASE numBtnCodeR
         CASE  1  ' OK  
		 	   fso.DeleteFile(Output)
			   Wscript.sleep 5000  'gibt dem Script etwas Zeit  
		 	   Wscript.echo "file should be killed"  
'  
         CASE  2  ' Abbrechen  
         	   Wscript.echo "Abbruch durch Anwender"  
         	   Wscript.Quit
      END SELECT
'  
else
' Na dann gehts einfach weiter  
end if
'  
 ' öffnen der Datei als Vorbereitung zur weiteren Verarbeitung  
'  
Set FileOut = fso.OpenTextFile( output,8,true)
'  
'---------------------------  
'  
END SUB 'CheckInFile  
'  
'-------------------------------------------------------------------  

SUB WriteHead
if HeadlineYesNo = 1 then
'  
HEADLINE=P01Bez&TZ&P02Bez&TZ&P03Bez&TZ&P04Bez&TZ&P05Bez&TZ&P06Bez&TZ&P07Bez&TZ&P08Bez&TZ&P09Bez&TZ&P10Bez&TZ&P11Bez&TZ&"bVKP"&TZ  
FileOut.WriteLine(HEADLINE)          'schreibt OutDs in Outputfile  
'  
else
WScript.echo "No Headline"  
END IF

END SUB      'WriteHead  

'-------------------------------------------------------------------  


'-------------------------------------------------------------------  
'Der eigentliche ArbeitsSUB  
'-------------------------------------------------------------------  

SUB DoTheWork
'Der InputFile (FileIn) wurde schon unter CheckInFile geöffnet  

' bis InputFile zu Ende ist, immer weiter machen  
Do While Not (FileIn.atEndOfStream)
InDS = FileIn.Readline         ' eine Zeile lesen und als Datensatz DS verwenden  

'----------------------  
'NUN wir der jeweilige inDS in seine Bestandteile (parts01 bis 11) zerlegt  
' Die Ergebnisse habe ich zumeist zusätzlich "getrimmt"  

' TRIM  
' gibt eine Kopie einer Zeichenfolge zurück, die keine führenden Leerzeichen  
' (LTrim), keine nachgestellten Leerzeichen (RTrim) oder weder führende noch  
' nachgestellte Leerzeichen (Trim) enthält.  


part01 = trim (right(Left(inDS,part01Ende),part01ENDE-part01Start+1))

'__________  

' Part01 fertig aber gleich noch die gewünschte Veränderung des Inhaltes.  

'Kann man bei der Teilenummer die führenden Nullen irgendwie entfernen?  
'Ja wie folgt:  
Do until Left(part01,1)<>"0"  
part01=right(part01,len(Part01)-1)
loop

'__________  
'__________  

'Weiter mit den nächsten Parts  

part02 = trim (right(Left(inDS,part02Ende),part02ENDE-part02Start+1))
part03 = trim (right(Left(inDS,part03Ende),part03ENDE-part03Start+1))
part04 = trim (right(Left(inDS,part04Ende),part04ENDE-part04Start+1))

'__________  

' Wieder gleich noch die gewünschte Veränderung des Inhaltes.  
' Kann man bei den Teilebezeichungen die Leerstellen entfernen?  
'__________  
if LSdeleteYN=1 then
part02= Ersetze(part02,Suchmuster, ErsatzMuster)
part03= Ersetze(part03,Suchmuster, ErsatzMuster)
part04= Ersetze(part04,Suchmuster, ErsatzMuster)
END IF
'__________  
'  
'Bruttopreis (Einkauf)  
'Abweichend kein Trim sondern CCur-Funktion  
'Gibt einen Ausdruck zurück, der in einen Wert vom Typ Variant  
'mit Untertyp Currency konvertiert wurde.  
'  
part05 = CCur (right(Left(inDS,part05Ende),part05ENDE-part05Start+1))
'  
'__________  
'  
'Thema Verkaufspreis  
'  
createbVKP  	'ruft den SUB createbVKP auf  
'  
'__________  
'  
'  
part06 = trim (right(Left(inDS,part06Ende),part06ENDE-part06Start+1))
part07 = trim (right(Left(inDS,part07Ende),part07ENDE-part07Start+1))
part08 = trim (right(Left(inDS,part08Ende),part08ENDE-part08Start+1))
part09 = trim (right(Left(inDS,part09Ende),part09ENDE-part09Start+1))
part10 = trim (right(Left(inDS,part10Ende),part10ENDE-part10Start+1))
'__________  
'  
part11 = trim (right(Left(inDS,part11Ende),part11ENDE-part11Start+1))
'  
'__________  
'  
' Die Mindestbestellmenge hat wie Teilenummer führenden Nullen  
' also auch weg damit  
Do until Left(part11,1)<>"0"  
part11=right(part11,len(Part11)-1)
loop
'__________  
'__________  
'  
'  
' Nun erfolgt Die Zusammenstellung des Übergabestrings  
'  
' Der Übergabesrting habbe ich in recht primitiver Form zusammengestellt  
' Aber durch diese Art der Übergabe kannst Du auch als Nicht-Vbsler  
' die Reihenfolge leicht anpassen.  
' Je nachdem in welcher Reihenfolge Sie für den Import verwendet werden sollen  
' Auf die Verbindung mit TZ dem Trennzeichen achten!  
'  
' Achtung als 12ter Wert ist noch der BruttoVerkaufspreis angefügt  
'  
OutDS=part01&TZ&part02&TZ&part03&TZ&part04&TZ&part05&TZ&part06&TZ&part07&TZ&part08&TZ&part09&TZ&part10&TZ&part11&TZ&bVKP&TZ
'  
'Und wegschreiben  
FileOut.WriteLine(outDS)          'schreibt OutDs in Outputfile  
'  
'_______________  
'  
'Noch die Anzahl um eins erhöhen rein zu Statistikzwecken  
AzDs=AZDs+1
'  
'_______________  
'  
loop   ' und weiter zur und dann auf zur nächsten Input-Zeile  
'  
'  
END SUB                 'DoTheWork  
'  
'-------------------------------------------------------------------  
'-------------------------------------------------------------------  
'  
'  
' Noch ein kleiner HilfSUB Um das Ende anzuzeigen  
'  
SUB Fertig
WScript.Echo "Ich habe fertig!" &Chr(13)&Chr(13)&+_  
"Anzahl der verarbeiteten Zeilen: "&AzDs  
END SUB 'Fertig  
'  
'  
'-------------------------------------------------------------------  
'  
'Ein MainSUB um die einzelnen SUBs aufzurufen  
'  
SUB MAIN
    Copyright
	CheckInFile
	CheckOutFile
	WriteHead
	DoTheWork
	Fertig
END SUB

'Der letzendliche Aufruf des ganzen Tralala  
'  
MAIN
'  
'-------------------------------------------------------------------  
' Just 4 fun auch noch ein Copyright  
' Kannst Du einfach unter Main auskommentieren  

SUB Copyright

DIM objCRPopUp   'Das ja notwendige Objekt  
set objCRPopUp = WScript.CreateObject("WScript.Shell")  
Dim msg
' ------------------------------------------------------------------------  
msg=   chr(9) & "Copyright (C) 2007 by" & chr(13)&chr(9)& "bastla, biber, illy79, pacobay" & chr(13) & +_  
chr(9) & "You can find us @administrator.de" & chr(13) & chr(13) +_  
 "We wrote this for educational purpose and just 4 fun. " & chr(13) &+_  
 "Now we distributed it in the hope that it will be useful for You." & chr(13)& chr(13) +_  
chr(9) & chr(9)    & "    ____________"&  chr(13)&  chr(13)&  chr(13) +_  
"It is distributed under the terms of the GNU General Public License." & chr(13) & chr(13) +_  
"And under those terms You have a royalty-free right to use, modify,"& chr(13) +_  
"reproduce and distribute the Files (and/or any modified version) in" &chr(13)+_  
"any way You find useful!" & chr(13)& chr(13) +_  
"Provided that in doing so, You agree that we gives no warranty," & chr(13) +_  
"or has any obligations or liability. Even without the implied warranty of" & chr(13) +_  
"merchantability or fitness for a particular purpose." & chr(13)&  chr(13) +_  
chr(9) & chr(9)    & "      ____________"&  chr(13)&  chr(13)&  chr(13) +_  
"See the GNU General Public License for more details published by the Free" & chr(13) +_  
"Software Foundation; either version 2  of the License, or (at your option)" & chr(13) +_  
"any later version."& chr(13)& chr(13)+_  
"You should have received a copy of the GNU General Public License" & chr(13) +_  
"along with this program; if not, write to the Free Software Foundation," & chr(13) +_  
"Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA."  

' ------------------------------------------------------------------------  

objCRPopUp.Popup msg,0,"Copyright",64+4096  

END SUB 		'Copyright  
'  
'-------------------------------------------------------------------  
'  
' EOF  

SUB createbVKP
bVKP=part05
	If bVKP <5 Then
		bVKP = CCur (bVKP * 1.4)
	ElseIf bVKP < 50 Then
		bVKP = CCur (bVKP * 1.3)
	Else
		bVKP = CCur (bVKP * 1.2)
	End If
END SUB    'createbVKP