Deutsch:
Hallo miteinander.
Ich scripte gerade VBS mit DIAdem von NationalInstruments.
Dabei hat sich ein Problem ergeben.
Ich versuche aus einem Datenkanal/einer Spalte Grenzwert über- und unterschreitungen herauszufiltern und in einem eigens dafür erstellten .txt-Dokument zu speichern.
Für die Überschreitungen (Find-Methode mit ">") funktioniert das auch hervorragend,
nicht jedoch wenn ich "<" nutze, dann gibt Find imm "0" zurück, was ja heißt "habe nichts gefunden"
Hier ein Beispiel:
Wenn jemand eine Idee hat, an was das liegen kann, wäre ich unheimlich dankbar (=
Viele Grüße
Micha
English:
Hi all,
I'm new here but cant find a topic that looks my problem.
Im scripting in VBS at the moment.
My script searches for outliners and copy them to an new .txt document.
Basicly it work great with ">". But when I use "<" to compare the measurement-data with the limit
find returns "0" as answer. That means "nothing found".
Here a sample about my problem:
If anyone has an Idea, please inform me (=
Thanks a lot.
sincerely Michael
Hallo miteinander.
Ich scripte gerade VBS mit DIAdem von NationalInstruments.
Dabei hat sich ein Problem ergeben.
Ich versuche aus einem Datenkanal/einer Spalte Grenzwert über- und unterschreitungen herauszufiltern und in einem eigens dafür erstellten .txt-Dokument zu speichern.
Für die Überschreitungen (Find-Methode mit ">") funktioniert das auch hervorragend,
nicht jedoch wenn ich "<" nutze, dann gibt Find imm "0" zurück, was ja heißt "habe nichts gefunden"
Hier ein Beispiel:
Quellcode
- Do 'While (ChannelNr < finalcount)
- ChannelNr = ChannelNr+1
- laengemax = ChnLength(Ch("[" & ChannelNr & "]/I_" & pruefling &"\15"))
- var = msgboxdisp ("ChannelNr =" & ChannelNr & vbCrlf & "ChnLength: =" & laengemax,"MB_OK", "MsgTypeInformation",0,2)
- intMyResult1 = 1
- 'Hilfe für Schleifen-EXIT
- uebergabecount = 1
- uebergabefind = 1
- uebergabefind = chnFind("Ch(""[" & ChannelNr & "]/I_" & pruefling & "\15"") < " & iunten , 1)
- Do while uebergabefind <> 0
- morefail1 = intMyResult1+1
- intMyResult1 = chnFind("Ch(""[" & ChannelNr & "]/I_" & pruefling & "\15"") < " & iunten , morefail1 )
- if morefail1 = 0 then AutoQuit
- if morefail1 = laengemax then AutoQuit
- pastefail1 = CHV(intmyresult1,"[" & ChannelNr & "]/I_" & pruefling & "\15")
- timefail1 = CHV(intmyresult1,"[" & ChannelNr & "]/Time")
- intMyHandle1 = TextFileOpen((MyFolders(0) & "Fehlerprotokoll.txt"), eTextFileAttributeWrite )
- intMyText1 = TextfileWriteLn(intMyHandle1, "Zeitstempel: " & timefail1 & " Fehler für I < Grenzwert. I=" & pastefail1 & " !" )
- TextFileClose(intMyHandle1)
- 'Hilfe für Schleifen-EXIT
- uebergabecount = uebergabefind+1
- uebergabefind = Find("Ch(""[" & ChannelNr & "]/I_" & pruefling & "\15"") < " & iunten , uebergabecount )
- loop 'Grenzwert1
- loop Until (ChannelNr = finalcount)'Channel
Wenn jemand eine Idee hat, an was das liegen kann, wäre ich unheimlich dankbar (=
Viele Grüße
Micha
English:
Hi all,
I'm new here but cant find a topic that looks my problem.
Im scripting in VBS at the moment.
My script searches for outliners and copy them to an new .txt document.
Basicly it work great with ">". But when I use "<" to compare the measurement-data with the limit
find returns "0" as answer. That means "nothing found".
Here a sample about my problem:
Quellcode
- Do 'While (ChannelNr < finalcount)
- ChannelNr = ChannelNr+1
- laengemax = ChnLength(Ch("[" & ChannelNr & "]/I_" & pruefling &"\15"))
- var = msgboxdisp ("ChannelNr =" & ChannelNr & vbCrlf & "ChnLength: =" & laengemax,"MB_OK", "MsgTypeInformation",0,2)
- intMyResult1 = 1
- 'Hilfe für Schleifen-EXIT
- uebergabecount = 1
- uebergabefind = 1
- uebergabefind = chnFind("Ch(""[" & ChannelNr & "]/I_" & pruefling & "\15"") < " & iunten , 1)
- Do while uebergabefind <> 0
- morefail1 = intMyResult1+1
- intMyResult1 = chnFind("Ch(""[" & ChannelNr & "]/I_" & pruefling & "\15"") < " & iunten , morefail1 )
- if morefail1 = 0 then AutoQuit
- if morefail1 = laengemax then AutoQuit
- pastefail1 = CHV(intmyresult1,"[" & ChannelNr & "]/I_" & pruefling & "\15")
- timefail1 = CHV(intmyresult1,"[" & ChannelNr & "]/Time")
- intMyHandle1 = TextFileOpen((MyFolders(0) & "Fehlerprotokoll.txt"), eTextFileAttributeWrite )
- intMyText1 = TextfileWriteLn(intMyHandle1, "Zeitstempel: " & timefail1 & " Fehler für I < Grenzwert. I=" & pastefail1 & " !" )
- TextFileClose(intMyHandle1)
- 'Hilfe für Schleifen-EXIT
- uebergabecount = uebergabefind+1
- uebergabefind = Find("Ch(""[" & ChannelNr & "]/I_" & pruefling & "\15"") < " & iunten , uebergabecount )
- loop 'Grenzwert1
- loop Until (ChannelNr = finalcount)'Channel
If anyone has an Idea, please inform me (=
Thanks a lot.
sincerely Michael