Avatar billede kennethcm Nybegynder
03. maj 2001 - 14:49 Der er 13 kommentarer og
1 løsning

pil noget ud af en fil

Jeg har et lille problem med mit projekt. Jeg skal ind i en fil og hente en lille del af en linie. men jeg kan ku få den til at hente hele linien.
Her er noget af linien:
ncfft=11452
cr=1.586030e+001
fl=65536
cpu=19927.360000
prog=0.35215533
potfreq=-1

Og det jeg skal bruge af linien er så 0.35215533
som jeg så skal gange med hundrede bagefter, da det skal blive til %. Når jeg skriver det her så er det opdelt i 6 linier men i notepad er det kun en lang linie?????

Please Help Me!!

På forhånd tak..
Avatar billede terry Ekspert
03. maj 2001 - 14:58 #1
Hi Ken!

Question. Does potfreg always follow prog?


terry
Avatar billede kennethcm Nybegynder
03. maj 2001 - 14:59 #2
What do you mean??
Avatar billede kennethcm Nybegynder
03. maj 2001 - 15:02 #3
yes it does
Avatar billede terry Ekspert
03. maj 2001 - 15:06 #4
Dim sProg  As String
Dim sPotfreq  As String
Dim str As String
Dim i As Variant
Dim j As Variant

Dim sResult As String


    str = \"ncfft=11452cr=15.8603fl=65536cpu=19927.36prog=0.35215533potfreq = -1\"

    sProg = \"prog\"
    sPotfreq = \"potfreq\"
   
       
    i = InStr(1, str, sProg) + 5
    j = InStr(1, str, sPotfreq)
   
   
    sResult = Mid(str, i, j - i)

Avatar billede terry Ekspert
03. maj 2001 - 15:10 #5
In the example str contains a string without any end of line characters. If what you are reading does contain some (hidden) charaacters then the code will not work.

If you can tell me exactly what it contains then I can modify the code.

Avatar billede kennethcm Nybegynder
03. maj 2001 - 19:18 #6
It works now
one of my friends helped me!
Avatar billede terry Ekspert
04. maj 2001 - 07:54 #7
Anyone can say that!

For what reason did you \'afvis\' my answer?
Avatar billede kennethcm Nybegynder
04. maj 2001 - 08:11 #8
Sorry but i couldn´t get yours to work.

But if you really want the points then we could work something out.
Avatar billede terry Ekspert
04. maj 2001 - 08:14 #9
Dont you worry about the points, what can I use them for?

But if you had said what was wrong then I could have looked at it, IKKE!

terry
Avatar billede kennethcm Nybegynder
04. maj 2001 - 08:22 #10
I know but one of my friends helped me instead.

But thanks for your help!

By the way do you know how to multiply an answer with a hundred. It might be easy but i just can\'t find out how to do it!!!
Avatar billede terry Ekspert
04. maj 2001 - 08:37 #11
Put this in your code
Dim RetVal as variant
RetVal = Shell(\"CALC.EXE\", 1)

No just joking!!

a = (b+c)/100
but as I dont know what your using it for then it may not be correct


Avatar billede kennethcm Nybegynder
04. maj 2001 - 10:07 #12
OK thx.
Avatar billede akexpert Nybegynder
14. november 2001 - 15:33 #13
jeg kan ikke huske koden. Men du skal åbne filen som en ini-fil. Hvis du er interesseret kan jeg godt finde koden... skriv til michael-mail@sol.dk hvis du er interesseret. Jeg har løsningen!
Avatar billede kennethcm Nybegynder
17. december 2001 - 11:26 #14
Problemet er løst
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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