38 svar · 887 visningar · startad av devotion · sida 2 av 2
Hej! Har snickrat ihop ett script som skall ha följande funktion: 1\. Söka igenom fältet ArtName och se om där finns ett sjusiffrigt nummer 2\. Finns det ska detta nummer skrivas in i ArtNr mha en Update 3\. Hela tabellen ska loopas igenom Här kommer koden: <% function searchArticle(art) dim re set re = new regexp re.pattern = "(\d{7})(\d)?" set m = re.execute(art) if m.coun
Läs hela trådstarten →det finns faktiskt sådana här också:
8554926
Sedan förstår jag inte riktigt vad du menar:
I din kod skall detta fält uppdateras med dagens datum - eller hur?
Det jag vill göra är att söka av fält <artName> om där finns ett sjusiffrigt nummer, finns det det vill jag kopiera det till fältet <artNr>. Jag vill göra det på alla rader i tabellen!
Mvh
Henrik
Då hittas 126 rader som alla innehåller ett sjusiffrigt nummer
Edit/
Fast den hittar även:
Mat. ordnr. 26111340
Mat ordnr 26144985
MOD VINKL 2x8 KAT5E UTP TREND 510329300
MODULARJACK 1X8 KAT5E UTP 306510005
Mvh
Henrik
devotion skrev:
Sedan förstår jag inte riktigt vad du menar
Du sätter modified = "dagens datum", bl.a. (jag var litet otydlig).
devotion skrev:
Det jag vill göra är att söka av fält <artName> om där finns ett sjusiffrigt nummer, finns det det vill jag kopiera det till fältet <artNr>. Jag vill göra det på alla rader i tabellen!
Just det!
sSQL = "update tblMaterial" &_
" set modified = "& today &"" &_
" , artNr = case when artName like '%[0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" then substring(artName,patindex('%[0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%',artName),7)" &_
" when artName like '%[0-9][0-9][0-9][0-9][0-9][0-9][0-9]'" &_
" then substring(artName,patindex('%[0-9][0-9][0-9][0-9][0-9][0-9][0-9]%',artName),7)" &_
" end" &_
" where artName like '%[0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" or artName like '%[0-9][0-9][0-9][0-9][0-9][0-9][0-9]'"
devotion skrev:
Då hittas 126 rader som alla innehåller ett sjusiffrigt nummer
Edit/
Fast den hittar även:
Mat. ordnr. 26111340
Mat ordnr 26144985
MOD VINKL 2x8 KAT5E UTP TREND 510329300
MODULARJACK 1X8 KAT5E UTP 306510005
Mvh
Henrik
Ja, det är ju meningen 
Sorry, jag läste litet för snabbt 
Vi måste givetvis ta samtliga fall i beaktning:
sSQL = "update tblMaterial" &_
" set modified = "& today &"" &_
" , artNr = case when artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" then substring(artName,patindex('%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%',artName),7)" &_
" when artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]'" &_
" then substring(artName,patindex('%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]%',artName),7)" &_
" end" &_
" where artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" or artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]'" &_
[red]" or artName like '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" or artName like '[0-9][0-9][0-9][0-9][0-9][0-9][0-9]'"[/red]
Lägg sedan till motsvarande fall i case-satsen.
Se hur jag gjort i case-satsen med två av fallen i where-satsen. Lägg till de sista två (rödmarkerat).
Så här:
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = Application("sConn")
objConn.Open
today = date()
sSQL = "update tblMaterial" &_
" set modified = "& today &"" &_
" , artNr = case when artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" then substring(artName,patindex('%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%',artName),7)" &_
" when artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]'" &_
" then substring(artName,patindex('%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]%',artName),7)" &_
" when artName like '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" then substring(artName,patindex('[0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%',artName),7)" &_
" when artName like '[0-9][0-9][0-9][0-9][0-9][0-9][0-9]'" &_
" then substring(artName,patindex('[0-9][0-9][0-9][0-9][0-9][0-9][0-9]',artName),7)" &_
" end" &_
" where artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" or artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]'" &_
" or artName like '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" or artName like '[0-9][0-9][0-9][0-9][0-9][0-9][0-9]'"
objConn.execute sSQL,,128
'get and log rows not having modified = @today
sSQL = "select <fields of interest>" &_
" from tblMaterial" &_
" where modified <> " & today
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sSQL, objConn, 3, 1
Do until ObjRS.EOF
' do logging
objRS.Movenext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
Japp! 
ok.. vågar jag köra den innann jag går och lägger mig....
Sannolikt inte. Mardrömsrisken finns ju. Jag röstar för Mr. Blund.
Hmmm
E3233084 Kontaktor 65A
LC1D65P7
blev:
E323308
Skulle bli:
3233084
Sen blev datumen
1905-05-23 00:00:00
Kan man inte använda
getDate()
//Henrik
Förresten, du kan nog skippa case-satsen:
sSQL = "update tblMaterial" &_
" set modified = "& today &"" &_
" , artNr = substring(artName,patindex('%[0-9][0-9][0-9][0-9][0-9][0-9][0-9]%',artName),7)" &_
" where artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" or artName like '%[^0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]'" &_
" or artName like '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9]%'" &_
" or artName like '[0-9][0-9][0-9][0-9][0-9][0-9][0-9]'"
Kör på mitt senaste förslag, jag ser nu att det tidigare innehåller några fel i patindex() (dags för mig att lägga ned nu...).
okidoki
Det blir ändå inte rätt...
Det blir fel datum och ibland bara 6 siffror ibland står det ett E med..
Ang. datum: 1) sätt apostrofer kring dem, 2) använder du getdate() direkt i SQL-satsen (som i ditt tidiga inlägg) finns möjligheten att olika datum används i de två frågorna. Detta kan undvikas genom att först spara undan det aktuella datumet i en variabel.
Använder du mitt senaste förslag? Kan du visa ett exempel där det blir fel?
Hej! 
Löste det faktiskt med detta:
<%
function searchArticle(art)
dim re
set re = new regexp
re.pattern = "(\d{7})(\d*)?"
set m = re.execute(art)
if m.count then
if len(m(0).submatches(1)) < 1 then
searchArticle = m(0).submatches(0)
exit function
end if
end if
searchArticle = ""
end function
' Öppna databasen
' ***************
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = Application("sConn")
objConn.Open
sSQL = "SELECT [Id], [ArtName] FROM tblMaterial"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sSQL, objConn, 3, 1
Do until ObjRS.EOF
sArticleName = objRS("ArtName")
iId = cInt(objRS("Id"))
dim s
s = searchArticle(sArticleName)
if len(s) > 0 then
sEnumber = s
sSQL = "UPDATE tblmaterial SET Modified = getdate(), ArtNr = '" & sEnumber & "' Where [Id] = " & iId
objConn.Execute sSQL,, 128
else
sSQL = "INSERT INTO tblUpdateMaterial ([Id], ArtName) VALUES (" & iId & ", '" & sArticleName & "')"
objConn.Execute sSQL,,128
end if
objRS.Movenext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.write "Klart!"
%>
Fungerade finfint!
Tack för hjälpen Peter S
Mvh
Henrik