Notifikationer

Markér alle som læst Log ud

topboy Nybegynder

01. oktober 2003 - 08:39 Der er 5 kommentarer og
1 løsning

finde hexidecimal og omregne til decimal

Jeg har et problem med at omregne Hexidecimal til Decimal
Det er altid forskellige Hexdecimaler, men de står altid samme sted.
Mit mål er at lave et lille program der kun henter de Hex
decimaler ind jeg skal skal bruge og omregne dem.

EKS.
3123000000010000000000000000000
3000000000E00100000000000000000
3200000000000000000000000000000
11000100090032000000(E0042A)00000
Disse Decimaler i Parentes.

/Topboy

Synes godt om

venne Nybegynder

01. oktober 2003 - 08:51 #1

For eksempel:

Dim sTekst As String
Dim sHex As String
Dim iPos1 As Integer
Dim iPos2 As Integer
Dim lVærdi As Long

sTekst = "11000100090032000000(E0042A)00000"

iPos1 = InStr(1, sTekst, "(")
iPos2 = InStr(iPos1, sTekst, ")")
sHex = Mid(sTekst, iPos1 + 1, iPos2 - iPos1 - 1)
lVærdi = Val("&H" & sHex)

Synes godt om

topboy Nybegynder

01. oktober 2003 - 08:55 #2

Tallene står normalt ikke i Parentes, men
står altid der i samme linje.

/Topboy

Synes godt om

venne Nybegynder

01. oktober 2003 - 09:00 #3

Nå, men hvordan har du så din tekst? Er det i en variabel eller en fil eller... Og er der flere linier? Hvad skal du egentlig have hjælp til?

Synes godt om

topboy Nybegynder

01. oktober 2003 - 09:16 #4

Min tekst står i en fil, og der er mange flere linjer, det er kun et lille
udsnit af teksten, men som sagt står den tekst der skal omregnes altid samme
sted i filen
I fjerde linje og 20 karektere ind og så er det de efterfølgende 6 karektere
der skal omregnes.

Synes godt om

venne Nybegynder

01. oktober 2003 - 09:25 #5

Nå men, så er det noget i denne retning:

Dim sFilnavn As String
Dim iFil As Integer
Dim sLinie As String
Dim i As Integer
Dim sHex As String
Dim lVærdi As Long

sFilnavn = "minfil.txt"

iFil = FreeFile
Open sFilnavn For Input As iFil
For i = 1 To 4
Line Input #iFil, sLinie
Next i
Close iFil

sHex = Mid(sLinie, 20, 6)
lVærdi = Val("&H" & sHex)

Synes godt om

topboy Nybegynder

01. oktober 2003 - 09:29 #6

Har godt nok ikke lige tid nu til at afprøve det nu
men du får point for din tid og tålmodighed.

/Topboy

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic	5	29/08/202512:28	04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic	0	05/08/202510:10	-
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic	0	16/05/202512:31	-
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic	1	22/04/202514:55	25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic	12	10/07/202417:34	12/07/202414:34

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS