Frage : Hunderte der Linie des VBScript Codes über SQL-Aussage finden und ersetzen

Ich bin erfolgreich in der Lage gewesen, VBscript Code über eine SQL-Updateaussage zu finden und zu ersetzen, aber es funktioniert nur mit einer Linie VBscript Code. Diese Aussage ist below

1:
2:
3:

update FormDefinitions gesetzte xaoProperties = ersetzen (der Bekehrte (varchar (maximal), xaoProperties), „Badekurort-Preis“, „Badekurort-Standardpreis ")
VON [M1_TJ]. [dbo]. [FormDefinitions]
WO xaoFormID mögen „%fcy%“ und xaoControlName wie „LBLSPAPRICE“


I Notwendigkeit, eine Funktion durch neuen Code über SQL zu ersetzen. Die Datenbanktabelle, die FormDefinitions genannt wird, ist wie folgt. 
1:
2:
3:
4:
5:
6:

 (
           , 
           , 
           , 
           , 
           , )


I Notwendigkeit, VBscript Code in einer Funktion zu ersetzen benannte UpdatePriceTag im xaoCode datafield. Jedoch muss ich viele Linien des Codes ersetzen. Alte und neue Funktion ist unten. 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

 `alte UpdatePriceTag Funktion
Funktion UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + „$“
	Anruf RemovePriceTag (cControlName)
	Wenn recht (Kontrollen (cControlName). Untertitel, 10) = „(eingeschlossen)“ dann
		Kontrollen (cControlName). Untertitel = verlassen (Kontrollen (cControlName). Untertitel, Len (Kontrollen (cControlName). Untertitel) - Len (Chr (13) + „(eingeschlossen) "))
	Beenden wenn
	rsPrice = CreateObject („ADODB.Recordset“) einstellen
	rsPrice.Open „* von PartUnitSalePrices in dem imhpartid =“ u. App.AddQuotes (cPartID) u. „und imhpartrevisionid = „A“ Auftrag durch imhstartdate desc“, der Anschluss vorwählen, adOpenStatic, adLockBatchOptimistic, adCmdText
	Wenn nicht rsPrice.EOF dann
		CPrice = CStr (rund (rsPrice.Fields („imhUnitSalePrice“). Wert, 2))
		CPrice = cPrefix + AddCents (CPrice, zutreffend)
		Kontrollen (cControlName). Untertitel = Kontrollen (cControlName). Untertitel + CPrice
	Beenden wenn
Funktion beenden


with dieses unterhalb… des 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

 `neue UpdatePriceTag Funktion
Funktion UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + „$“
	Anruf RemovePriceTag (cControlName)
	Wenn recht (Kontrollen (cControlName). Untertitel, 10) = „(eingeschlossen)“ dann
		Kontrollen (cControlName). Untertitel = verlassen (Kontrollen (cControlName). Untertitel, Len (Kontrollen (cControlName). Untertitel) - Len (Chr (13) + „(eingeschlossen) "))
	Beenden wenn
	rsPrice = CreateObject („ADODB.Recordset“) einstellen
	rsPrice.Open „* von PartUnitSalePrices in dem imhpartid =“ u. App.AddQuotes (cPartID) u. „und imhpartrevisionid = „A“ Auftrag durch imhstartdate desc“, der Anschluss vorwählen, adOpenStatic, adLockBatchOptimistic, adCmdText
	Wenn nicht rsPrice.EOF dann
		Wenn cPartID = „ATRALINTAS“ dann
		CPrice = CStr (rund (rsPrice.Fields („imhUnitSalePrice“). Wert, 2))
		Cprice = CDbl (CPrice) *cLintPots
		Cprice = CStr (CPrice)
		CPrice = cPrefix + AddCents (CPrice, zutreffend)
		Kontrollen (cControlName). Untertitel = Kontrollen (cControlName). Untertitel + CPrice
		Sonst
		CPrice = CStr (rund (rsPrice.Fields („imhUnitSalePrice“). Wert, 2))
		CPrice = cPrefix + AddCents (CPrice, zutreffend)
		Kontrollen (cControlName). Untertitel = Kontrollen (cControlName). Untertitel + CPrice
		Beenden wenn
	Beenden wenn
Funktion beenden


I würde jedes mögliches Rückgespräch schätzen.

Thanks!! J

Antwort : Hunderte der Linie des VBScript Codes über SQL-Aussage finden und ersetzen

Sie konnten die, jquery Bibliothek zu verwenden versuchen und etwas Ähnliches tun.
jquery Bibliothek im HTML-Kopf mit einschließen

$ (Dokument) .ready (Funktion () {

$ („Eingang [type=hidden], ").each (Funktion () {//captures und verpacken alle versteckten Elemente
  Wert = $ (dieses) .value;    ///this erhält den Wert für jedes der versteckten Elemente einzeln
    ///put ajax Anruf hier.  jeder versteckte Elementwert ist verarbeitete einzeln… Schleife
   });
});
Weitere Lösungen  
 
programming4us programming4us