Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

String in Binär umwandeln

Frage Entwicklung VB for Applications

Mitglied: 48558

48558 (Level 1)

12.02.2008, aktualisiert 13.02.2008, 13638 Aufrufe, 2 Kommentare

Hallo,
Ich würde gerne mit VBScript einen String in Binär und zurück umwandeln .
Wie kann ich das realisieren?
Mitglied: bastla
12.02.2008 um 23:21 Uhr
Hallo Yugius!

Etwa so:
01.
Text = "Nur ein Test." 
02.
WScript.Echo Text 
03.
 
04.
'Zeichenweise Umwandlung in Bin 
05.
Bin = "" 
06.
For i = 1 To Len(Text) 
07.
	Dec = Asc(Mid(Text, i, 1)) 
08.
	Bin = Bin & Dec2Bin(Dec) 
09.
Next 
10.
WScript.Echo Bin 
11.
 
12.
'Byteweise Umwandlung in Zeichen 
13.
Text = "" 
14.
For i = 1 To Len(Bin) Step 8 
15.
	Text = Text & Chr(Bin2Dec(Mid(Bin, i, 8))) 
16.
Next 
17.
WScript.Echo Text 
18.
 
19.
 
20.
Function Dec2Bin(D) 'Umwandlung eines dezimalen Wertes zwischen 0 und 255 in Binärdarstellung 
21.
By = "" 
22.
For a = 7 To 0 Step -1 
23.
	Bit = Int(D / 2 ^ a) 
24.
	D = D - Bit * 2 ^ a 
25.
	By = By & CStr(Bit) 
26.
Next 
27.
Dec2Bin = By 
28.
End Function 
29.
 
30.
Function Bin2Dec(By) 'Umwandlung einer Binär-Zahl (8 Bit) in Dezimaldarstellung 
31.
If Len(By) <> 8 Then Err.Raise 5 
32.
D = 0 
33.
For a = 0 To 7 
34.
	D = D + Mid(By, 8 - a, 1) * 2 ^ a 
35.
Next 
36.
Bin2Dec = D 
37.
End Function
Zum Testen solltest Du das Script über "cscript" starten.

Grüße
bastla
Bitte warten ..
Mitglied: 48558
13.02.2008 um 06:29 Uhr
danke für die schnelle hilfe.
das löst mein problem ;)
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Python
Bashscript in Pythonscript umwandeln (4)

Frage von struband zum Thema Python ...

Entwicklung
gelöst Array in HTML-Tabelle umwandeln mittels AutoIT (5)

Frage von drnatur zum Thema Entwicklung ...

Batch & Shell
Per Batch in Aufgabeplanung XLS in CSV umwandeln (21)

Frage von dtbsys zum Thema Batch & Shell ...

Multimedia
gelöst PDF: Alle Seiten entfernen, welche nicht definierten String enthalten (9)

Frage von MegaGiga zum Thema Multimedia ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (11)

Frage von DerFurrer zum Thema Windows Installation ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Windows Server
Probleme mit Client Software Zugriff auf Windows Server 2012 (8)

Frage von it-kolli zum Thema Windows Server ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...