Murphy Juniormester
18. juni 2020 - 15:52

tbs script problem

Hej. Jeg har dette script:
Er der en der har lyst til at hjælpe??
Venlig hilsen


Set fso = CreateObject("Scripting.FileSystemObject")
Set re = New RegExp
re.Pattern = " +" 'matcher mere end ét mellemrum i række
isFound001 = false
lastLine = ""
lastDbl =  1.79769313486231E+308
Set inFile  = fso.OpenTextFile("case2.txt")
Set outFile = fso.CreateTextFile("slut.txt", True)
Do Until inFile.AtEndOfStream
    line = inFile.ReadLine
    line = Replace(line, vbTab, " ") 'Erstat Tab med Space
    line1white = re.Replace(line, " ") 'højest 1 mellemrum
    lineArr = Split(line1white, " ")
  If isFound001 And CDbl(Replace(lineArr(1),".",",")) > lastDbl Then
    Exit Do
    End If
    Do 'null loop for at simulere Continue
    'Første -0.100 
    If Not isFound001 And lineArr(1) = "-0.100" Then
  curr = "-0.100" 
      lastDbl = CDbl(Replace(lineArr(1),".",","))
    isFound001 = True
    Exit Do 'Continue
End If
    'Sidste linje i hver serie
    If curr <> lineArr(1) And isFound001 Then
        outFile.WriteLine lastLine
        curr = lineArr(1)
        lastDbl = CDbl(Replace(lineArr(1), ".", ","))
    End If
    Loop While False 'slut på null loop
    lastLine = line
Loop

outFile.WriteLine lastLine 'Sidste linje udskrives

inFile.Close
outFile.Close

Den skal ikke kikke på decimal 2 og 3 kun tallet med en decimal.

Når tal i kollonne 2 er -.0.100 hvor 2 og 3 decimal ikke skal kikkes på, printes linien, indtil der kommer -0.200 uden igen at kikke på 2 og 3 decima
osv til slut fill

1.252    -0.099    25.3    0.00
1.253    -0.099    25.3    0.00
1.254    -0.099    25.3    0.00
1.255    -0.099    25.3    0.00
1.256    -0.099    25.3    0.00
1.257    -0.099    25.3    0.00
1.258    -0.099    25.5    0.00
1.259    -0.099    25.5    0.00
1.260    -0.100    25.5    0.00
1.261    -0.100    25.5    0.00
1.262    -0.100    25.5    0.00
1.263    -0.100    25.5    0.00
1.264    -0.100    25.5    0.00
1.265    -0.100    25.5    0.00
1.266    -0.100    25.5    0.00
1.267    -0.100    25.5    0.00
1.268    -0.100    25.5    0.00
1.269    -0.100    25.5    0.00
1.270    -0.100    25.7    0.00
1.271    -0.100    25.7    0.00
1.272    -0.101    25.7    0.00
1.273    -0.101    25.7    0.00
1.274    -0.101    25.7    0.00
1.275    -0.101    25.7    0.00
1.276    -0.101    25.7    0.00
1.277    -0.101    25.7    0.00
1.278    -0.101    25.7    0.00
1.279    -0.101    25.7    0.00
1.280    -0.101    25.9    0.00
1.281    -0.101    25.9    0.00
1.282    -0.101    25.9    0.00
1.283    -0.101    25.9    0.00
1.284    -0.101    25.9    0.00
1.285    -0.103    25.9    0.00
1.286    -0.103    25.9    0.00
1.287    -0.103    25.9    0.00
1.288    -0.103    25.9    0.00
1.289    -0.103    25.9    0.00
1.290    -0.103    26.0    0.00
1.291    -0.103    26.0    0.00
1.292    -0.103    26.0    0.00
1.293    -0.103    26.0    0.00
1.294    -0.103    26.0    0.00
1.295    -0.103    26.0    0.00
1.296    -0.103    26.0    0.00
1.297    -0.104    26.0    0.00
1.298    -0.104    26.0    0.00
1.299    -0.104    26.0    0.00
1.300    -0.104    26.0    0.00
1.301    -0.104    26.0    0.00
1.302    -0.104    26.2    0.00
1.303    -0.104    26.2    0.00
1.304    -0.104    26.2    0.00
1.305    -0.104    26.2    0.00
1.306    -0.104    26.2    0.00
1.307    -0.104    26.2    0.00
1.308    -0.104    26.2    0.00
1.309    -0.104    26.2    0.00
1.310    -0.105    26.2    0.00
1.311    -0.105    26.2    0.00
1.312    -0.105    26.2    0.00
1.313    -0.105    26.2    0.00
1.314    -0.105    26.4    0.00
1.315    -0.105    26.4    0.00
1.316    -0.105    26.4    0.00
1.317    -0.105    26.4    0.00
1.318    -0.105    26.4    0.00
1.319    -0.105    26.4    0.00
1.320    -0.105    26.4    0.00
1.321    -0.105    26.4    0.00
1.322    -0.105    26.4    0.00
1.323    -0.106    26.4    0.00
1.324    -0.106    26.4    0.00
1.325    -0.106    26.6    0.00
1.326    -0.106    26.6    0.00
1.327    -0.106    26.6    0.00
1.328    -0.106    26.6    0.00
1.329    -0.106    26.6    0.00
1.330    -0.106    26.6    0.00
1.331    -0.106    26.6    0.00
1.332    -0.106    26.6    0.00
1.333    -0.106    26.6    0.00
1.334    -0.106    26.6    0.00
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Apple er på vej med en stribe nye iPhones: En folde-telefon kan være lige om hjørnet
Der kan være en stribe iPhones på trapperne, hvor Apple blandt andet formentlig vil forsøge at gøre andre producenter kunsten efter med en skærm, der kan foldes på midten.
Computerworld
Trump bønfalder Helle Thorning: Giv mig min Facebook-konto tilbage
Facebooks tilsynsråd, der har Helle Thorning-Schmidt i spidsen, har modtaget en erklæring fra Donald Trump, som ønsker at få genoprettet adgangen til sin Facebook og Instagram-konto.
CIO
Der findes ikke noget vigtigere for din virksomhedskultur end psychological safety
Klumme: Forskningen er entydig: Vidensarbejde er mere effektiv, når du tør stille spørgsmål, rejse kritik og indrømme fejl helt uden frygt for at blive straffet eller gjort til grin. Hvis du ikke har fokus på denne del af din virksomhedskultur, så lever din virksomhed og dine medarbejdere ikke op til deres fulde potentiale.
Job & Karriere
IBM Danmark trækker tilbud om frivillige fratrædelser tilbage for stort antal ansatte: "IBM har taget røven på sine ansatte"
Som led i IBM Danmarks store fyringsrunde fik 130 ansatte grønt lys til at forlade selskabet på en frivillig fratrædelsesordning. Men nu har IBM Danmark trukket det oprindelige tilbud tilbage for størstedelen af de ansatte.
White paper
Sådan: Giv medarbejderne frit valg og øg arbejdsglæden
Mange virksomheder udleverer stadig samme smartphone, laptop eller tablet til alle medarbejderne. Det kan koste dyrt på produktivitet, effektivitet, arbejdsglæde – og reelt også medføre ressourcespild, massivt øget administration og øgede sikkerhedsrisici. Men det behøver slet ikke at koste ekstra, hvis du giver medarbejderne indflydelse på, hvilke enheder de skal arbejde på. Tværtimod kan du med en gennemtænkt choose-your-own-device-aftale stille præcis det udvalg af enheder og tilbehør til rådighed, som både lever op til medarbejdernes forventninger og virksomhedens sikkerhedskrav.