Question : Trouver et remplacer les centaines de ligne de code de VBScript par l'intermédiaire de la commande SQL

J'ai avec succès pu trouver et remplacer le code de VBscript par l'intermédiaire d'un rapport de mise à jour de SQL, mais cela fonctionne seulement avec une ligne de code de VBscript. Ce rapport est class= les " lineNumbers " >

1 de >

update = remplacent (converti (varchar (maximum), xaoProperties), « prix de station thermale », « prix standard de station thermale ")
DE [M1_TJ]. [dbo]. [FormDefinitions]
LÀ OÙ le xaoFormID aiment « %fcy% » et xaoControlName comme « LBLSPAPRICE »
le besoin " clair " de >

I de class= de 
1 de >
 (
           , 
           , 
           , 
           , 
           , )
le besoin " clair " de >


I de class= de 
1 de >

 vieille fonction d'UpdatePriceTag de `
Fonction UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + « $ »
	Appel RemovePriceTag (cControlName)
	Si droit (commandes (cControlName). Légende, 10) = « (inclus) » puis
		Commandes (cControlName). Légende = parti (commandes (cControlName). Légende, Len (commandes (cControlName). Légende) - Len (Chr (13) + « (inclus) "))
	Finir si
	Placer le rsPrice = le CreateObject (« ADODB.Recordset »)
	rsPrice.Open « choisissent * à partir de PartUnitSalePrices où imhpartid = » et App.AddQuotes (cPartID) et « et imhpartrevisionid = « A » ordre par le desc d'imhstartdate », raccordement, adOpenStatic, adLockBatchOptimistic, adCmdText
	Sinon rsPrice.EOF alors
		CPrice = CStr (rond (rsPrice.Fields (« imhUnitSalePrice »). Valeur, 2))
		CPrice = cPrefix + AddCents (CPrice, vrais)
		Commandes (cControlName). Légende = commandes (cControlName). Légende + CPrice
	Finir si
Finir la fonction
class= >


with de 
1 de >

 nouvelle fonction d'UpdatePriceTag de `
Fonction UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + « $ »
	Appel RemovePriceTag (cControlName)
	Si droit (commandes (cControlName). Légende, 10) = « (inclus) » puis
		Commandes (cControlName). Légende = parti (commandes (cControlName). Légende, Len (commandes (cControlName). Légende) - Len (Chr (13) + « (inclus) "))
	Finir si
	Placer le rsPrice = le CreateObject (« ADODB.Recordset »)
	rsPrice.Open « choisissent * à partir de PartUnitSalePrices où imhpartid = » et App.AddQuotes (cPartID) et « et imhpartrevisionid = « A » ordre par le desc d'imhstartdate », raccordement, adOpenStatic, adLockBatchOptimistic, adCmdText
	Sinon rsPrice.EOF alors
		Si cPartID = « ATRALINTAS » puis
		CPrice = CStr (rond (rsPrice.Fields (« imhUnitSalePrice »). Valeur, 2))
		*cLintPots de Cprice = de CDbl (CPrice)
		Cprice = CStr (CPrice)
		CPrice = cPrefix + AddCents (CPrice, vrais)
		Commandes (cControlName). Légende = commandes (cControlName). Légende + CPrice
		Autrement
		CPrice = CStr (rond (rsPrice.Fields (« imhUnitSalePrice »). Valeur, 2))
		CPrice = cPrefix + AddCents (CPrice, vrais)
		Commandes (cControlName). Légende = commandes (cControlName). Légende + CPrice
		Finir si
	Finir si
Finir la fonction
le class= >


I de 

Thanks ! ! J

  
  class= de 

Réponse : Trouver et remplacer les centaines de ligne de code de VBScript par l'intermédiaire de la commande SQL

Vous pourriez essayer d'employer la bibliothèque de jquery et faire n'importe quoi de pareil.
inclure la bibliothèque de jquery dans la tête de HTML

$ (document) .ready (fonction () {

$ (« entrée [type=hidden] ").each (fonction () {//captures et empaquettent tous les éléments cachés
  valeur = $ (ceci) .value ;    ///this obtiendra la valeur pour chacun des éléments cachés un par un
    appel d'ajax de ///put ici.  chaque valeur cachée d'élément sera un par un traitée… boucle
   }) ;
}) ;