Visual Basic Forum

Verfasst am: 07.03.2012, 16:51 Aufrufe: 285

.." dann klappt alles, such ich aber nach "...welt" wird nichts mehr angezeigt nun zu meiner frage: kann ich in eine try-umgebung eine schleife so einbaun, dass am ersten zeichen begonnen wird, bei keiner übereinstimmung zum zweiten zeichen gegangen und da neu begonnen wird....etc??? denn bisher bricht er bei keiner übereinstimmung im ersten zeichen ab. wäre für einen kleinen beispielcode dankba ...

Verfasst am: 06.03.2012, 16:00 Aufrufe: 174

Hi meinst Du die Funktion "Tieferstellen" mit Deiner Frage "Gibts da eine Funktion ..."? Wenn ja, ist die Antwort: Ja! Du hast auf folgende Weise Zugang dazu: Format/Zeichen/Zeichenabstand/Position, hier auswählen: Tieferstellen Diese Angaben beziehen sich auf Word 2000, aber ich nehme an, daß es bei den neueren Versionen ähnlich ist. Gruß Ernesto

Verfasst am: 13.02.2012, 17:10 Aufrufe: 196

Salü zusammen Als absoluter Neuling versuche ich in einem Word Dokument relative Bildverknüpfungen einzufügen. Das müsste doch so gehen: (aber nur, wenn die Dokus immer aus demselben Pfad stammen, und der abzuschneidende Pfadanteil des absoluten Pfades genau die richtige Länge(53 Zeichen) hat). Mein Problem ist, dass INCLUDEPICTURE offenbar keine Srtingvariablen mag..... Mad

Wie kann ich dem sonst aus einer ...

Verfasst am: 24.10.2011, 23:43 Aufrufe: 246

Enabled = True End Sub Zur Erklärung: der erste Teil (Private Sub Command1_Click(Index As Integer)) stellt den Teil da, das Spieler 1 das Zeichen "X" zugeordnet bekommt und bei einem klick auf den CommandButten auf ihn ein "X" erscheinen soll, dass dieser dann nicht mehr überschreibt werden kann und dann soll der Text in dem der Spieler angezeigt wird, welcher am Zug ist, so gewechselt werd ...

Verfasst am: 24.09.2011, 22:56 Aufrufe: 238

ich hab eine minimap geadded, funktioniert auch alles - wenn ich eine unit bewege dann wird die alte position nicht gelöscht! wie kann ich hier dem programm sagen, es soll nur die aktuelle position zeichen - aber die alten sofort wieder löschen auser die einheit bewegt sich nicht mehr ? Public Sub drawminimap(z) tempa = mapwidth / 70 tempb = mapheight / 70 minimap.ForeColor = vbGreen minimap.

Verfasst am: 20.09.2011, 11:01 Aufrufe: 349

c)Daten repräsentieren Informationen zum Zweck der Darstellung und Verarbeitung. d)Information besteht aus Daten, die nach bestimmten Regeln aus Zeichen oder Signalen zusammengesetzt sind. antwort: a, c Aufgabe 2 Wie wird die Verbindung zwischen Systemen oder ihrer Komponenten allgemein bezeichnet, die speziell für die Kommunikation zur Verfügung steht? antwort: schnittstelle Aufgabe 3 Aus wieviel ...

Verfasst am: 09.06.2011, 13:22 Aufrufe: 426

In diesem Fall scheint VB nicht ein, sondern zwei Bytes zu übertragen. Das dürfte wohl der Tatsache geschuldet sein, dass auf meinem System der Unicode verwendet wird, der auf der Gegenseite nicht bekannt ist. Ich suche verzweifelt eine Möglichkeit um auch wirklich je Zeichen in meinem String auch nur ein Byte zu übertragen. Das muss doch irgendwie gehen. Da dieses Problem mit Sicherheit schon viele vor mir hatt ...

Verfasst am: 02.05.2011, 17:25 Aufrufe: 731

Kurz zur Erklärung: - Ich habe eine Klasse mit einem Timer und einem OnPaint-Event - In jedem Tick des Timers soll das OnPaint-Ereignis in der Klasse ausgelöst werden um etwas auf das Formular zu zeichen, das die Klasse benutzt - Dafür Erbe ich von der Class Control Public Class TestKlasse Inherits Control Private Sub timer_Tick() Invalidate() End ...

Verfasst am: 21.04.2011, 00:50 Aufrufe: 368

Create) 'Erzeuge einen Writer.... Dim obj_Writer As New System.IO.StreamWriter(obj_Stream) 'Schreibe ein paar Zeichen rein obj_Writer.WriteLine("Test123") obj_Writer.Close() 'Schliesse obj_Stream.Close() 'Schliesse Catch ex As Exception 'Aubacke da ist was schief gegangen MsgBox(ex.Mess ...

Verfasst am: 17.03.2011, 15:56 Aufrufe: 601

Length > 6 Then If temp.Remove(6, (temp.Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, temp.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If En ...

Verfasst am: 17.03.2011, 15:25 Aufrufe: 601

Length > 6 Then If temp.Remove(6, (temp.Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, temp.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If En ...

Verfasst am: 17.03.2011, 13:24 Aufrufe: 601

RemoveEmptyEntries) 'Jetzt müssen wir jede Zeile durchgehen: Dim temp As String For Each temp In loadarray 'Eine Schleife, die jedes Elemet im Array durchgeht If temp.Remove(5, temp.Length) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, Var1.LastI ...

Verfasst am: 27.01.2011, 10:53 Aufrufe: 587

Hallo, ich möchte Hexadezimale Zeichen für das neue Premiumadress-Verfahren der Deutschen Post auf einem DataMatrix-Code auslesen. Jedoch interpretiert die Textbox von VB6 und verarbeitet sie zugleich. Das Bedeutet: Der Datamatrix Code bedeutet Dezimal: DEA08.... Es wird der HexCode: D = 44 E = 45 A = 41 08 = BS Er gibt also noicht DEA08 aus, sondern interpretiert das "08" als Back ...

Verfasst am: 24.01.2011, 21:52 Aufrufe: 356

Hey. Ich bin noch ziemlich nei beim Programmieren, und wollte mal fragen, ob mir jemand helfen könnte, eine .xml datei zu entschlüsseln. Die genaue Verschlüsselungsart kenne ich leider nicht, aber es sind keine Buchstaben, sondern Zeichen. Hoffe, ihr könnt mir helfen, hab im Internet noch nix gutes gefunden. MfG.

Verfasst am: 22.01.2011, 19:18 Aufrufe: 320

Verfasst am: 21.12.2010, 16:45 Aufrufe: 463

Verfasst am: 14.11.2010, 18:13 Aufrufe: 382

Ich hab mal ein paar Fragen wegen dem Telnet Text ich hab ein Telnet Client programmiert der mit einer Chatplattform verbunden ist und jedesmal wenn ich was abschick kommen zeichen wie # zwischen dem Raumnamen und dem Nick und jetzt will ich diese # z.b mit : ersetzen und meine 2te Frage waere wie mach ich das der text der im Client erscheint rot wird also nur bestimmte Sätze

Verfasst am: 09.11.2010, 18:16 Aufrufe: 848

ich hab grad durch zufall was gefunden; Public Function ByteArrayToString(bytArray() As Byte) As String Dim sAns As String Dim iPos As String sAns = StrConv(bytArray, vbUnicode) iPos = InStr(sAns, Chr(0)) If iPos > 0 Then sAns = Left(sAns, iPos - 1) ByteArrayToString = sAns End Function das funtkioniert auch nur das plötzlich vor dem string 3 merkwürdige zeichen ...

Verfasst am: 20.09.2010, 14:20 Aufrufe: 903

Hi ich habe folgendes Problem, ich bekomm ich eine Textbox einen String gesendet, dieser soll ab einen bestimmten zeichen (Asc 13) abgeschnitten werden. Mit meinen Quellcode bekomm ich immer die Meldung das der Wert nicht kleiner Null sein darf? Was mache ist denn da verkehrt? Dim b As Integer Dim z As String Dim a As String = TextBox2.Text b = a.IndexOf("~") ...

Verfasst am: 02.07.2010, 13:29 Aufrufe: 939

... ktioniert, habe dazu eine Methode für die Prüfsummenberechnung geschrieben. Dies klappt auch, aber wenn ich darauf die Empfangsmethode verwende, die laut meinem Projektbetreuer in der Firma auch funktionieren müsste, kommt keine Antwort vom Regler, habe dazu ebenfalls eine Methode aus dem MSDN verwendet, ReceiveSerialData(), und sie nach meinen Anforderungen umfunktioniert, wobei das Telegramm des Reglers zeichen ...

Verfasst am: 29.06.2010, 13:01 Aufrufe: 838

Verfasst am: 26.04.2010, 20:56 Aufrufe: 335

Hallo ich hab ein kleines Problem wo ich nen professionelen Ratschlag bräuchte. Ich hab eine richtextbox wo ich mehr als 300 Zeichen hab und wenn ich die drucken will, sind die zeichen über den druckbereich. Wie mache ich, dass wenn es zum Beispiel mehr als 100 Zeichen in einer Zeile sind, dass er den restlichen Text in die nächste(n) Zeile(n) schreibt? If TextBox1.Text.Length > 100 Then ............??? ...

Verfasst am: 13.04.2010, 14:59 Aufrufe: 1181

Leider komm ich grade nicht weiter. Als Info ihn Delphi bin ich noch Blutiger Anfänger ; ) var zeichen : integer; ergebnisbin : string; z: char; begin edit1.text := z; zeichen :=ord(z); ShowMessage(IntToStr(Ord(z))); while trunc(zeichen) <> 0 do begin ergebnisbin := IntToSTr(zeichen mod 2) + ergebnisbin; zeichen := trunc& ...

Verfasst am: 09.02.2010, 15:05 Aufrufe: 702

Verfasst am: 18.01.2010, 16:47 Aufrufe: 527

5.1 In einer MySQL Datenbank habe ich "fremde" Texte (z.B. Jap/Chin) gespeichert. Die entsprechenden Spalten in der MySQL Datenbank sind also vom Zeichensetz "ujis" etc. Die Texte sind mit dem MySQL Query Browser korrekt sichtbar, also auch tatsächlich vorhanden Wink

Problem: Lesen von jap./chin. Inhalten aus der Datenbank liefert nur "???". Schreiben in die Datenbank geht auch ni ...

Verfasst am: 10.01.2010, 17:17 Aufrufe: 1071

Text) Mod 12 For i = 1 To length ActiveCell.Text = Hyperlink("/fotos/" & Mid(zelle, i, i + 12)) End Sub Soll halt pro 12 Zeichen des strings der aktiven Zelle einen neuen link erstellen und in die Zelle daneben schreiben (testzweck). Bisher laufe ich noch auf Fehler und sitze auch schon ganz schön lagne daran, daher hoffe ich jetzt hier auf ein bisschen Hilfe zu treffen.

Verfasst am: 22.11.2009, 22:27 Aufrufe: 1136

Random) 'Write the record to the file FilePut(FileNum, User) FileClose(FileNum) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Das klappt auch, aber die ID wird nicht gespeichert und es treten eigenartige Zeichen auf. Ich wäre für hilfreiche Tipps, Lös ...

Verfasst am: 18.11.2009, 15:40 Aufrufe: 417

Hi, ich habe ein Problem. Ich soll ein Macro programmieren, dass in der Lage ist, nach dem Satzzeichen "." und nach zwei Paragraphenzeichen "§" einen Identifier nach dem vorangegangnen Punkt einzufügen, so dass man später die Texte einfacher vergleichen kann, was hat sich verändert, welche Absätze wurden hinzugefügt. etc. Beispiel: This release of the Reference Data Specification document ...

Verfasst am: 17.11.2009, 12:57 Aufrufe: 1922

Stream") 'Stream erzeugen With objStream .Open 'Öffen .Position = 0 'Cursor setzen .Charset = CharFormat 'Charset angeben .WriteText sInhalt 'Zeichen in Stream schreiben .SaveToFile sFilename 'Stream in Datei schreiben End With End Fu ...

Verfasst am: 17.11.2009, 12:54 Aufrufe: 2711

Stream") 'Stream erzeugen With objStream .Open 'Öffen .Position = 0 'Cursor setzen .Charset = CharFormat 'Charset angeben .WriteText sInhalt 'Zeichen in Stream schreiben .SaveToFile sFilename 'Stream in Datei schreiben End With End Fu ...

Verfasst am: 13.11.2009, 20:51 Aufrufe: 2711

txt ( in meinem Fall *.xml) erstellen, und dann die datei zeile um zeile und buchstabe für buchstabe einlesen und per Select Case dann umwandeln. Gibts aber bestimmt andere "schönere Lösungen". Am Dateibeginn sollte auch noch was bestimmtes stehen 3 Zeichen oder so damit es als UTF-8 erkannt wird. Genaueres kann ich dir erst am Montag schreiben, weil ich mom. nicht in der Areit bin. jaaaaaaa, auc ...

Verfasst am: 25.09.2009, 09:20 Aufrufe: 771

Name: FindStringFunktion: Gibt einen umbekannten String wert ausAusgabe: StringBeschreibung:Löscht bis zum ersten Zeichen des gesuchten Strings und sucht von da anweiterCode:Function FindString(Text, TextToDelete, Lengh)<br />FindString = Left(Replace(Text, TextToDelete, ""), Lengh)<br />End FunctionUse:MsgBox FindString(Text1.Text, "BIS ZUM ERSTEN ZEICHEN DES STRIN ...

Verfasst am: 18.08.2009, 16:17 Aufrufe: 521

Hallo, ich schreibe gerade einen Delphi Code in VB .net um und hänge derzeit an einem Befehl von Delphi. Über eine Schnittstelle soll folgendes gesendet werden: pchar(String), length(String) Die Länge eines Strings ist einfach über Len(String) in VB bestimmbar. Bei pchar hab ich so meine liebe Mühe. Pchar ist wohl ein Pointer der auf das erste Zeichen eines Strings zeigt. Ich habe es in VB .net erstmal so ge ...

Verfasst am: 16.07.2009, 12:41 Aufrufe: 2508

Thema: Systemweites Drag & Drop in VB.NETHallo,heute möchte ich Euch zeigen, wie Ihr ein systemweites Drag & Drop System mit VB.NET realisiert.In den meisten Tutorials/Sourcecodes findet ihr nur Drag & Drop zwischen zwei Listviews o.Ä., aber hier wird der Einsatz eines systemweiten Drag & Drop Systems besprochen. Damit könnt ihr z.B. Dateien aus dem Explorer in euer Programm ziehen.Damit das ganze funktioniert, müsst ...

Verfasst am: 11.07.2009, 23:15 Aufrufe: 1154

Hey Leute, ich wollte euch mal fragen, wie es geht, wenn ich von einer Textbox vom anfang der reihe nach bis zu dem zeichen " in eine andere textbox kopieren will... währe nett, wenn ihr ein kleines source-stück posten könnt. //Edit: ach ja: ich konnte niergends etwas geeignetes finden Wink

GreezZ Leder

Verfasst am: 25.06.2009, 08:18 Aufrufe: 443

Verfasst am: 20.06.2009, 14:04 Aufrufe: 733

Hab ich gerade auch noch gefunden, also werde ich ihn auch hochladen, ein easy PW Generator, ihr könnt Passwörter generieren egal wie lang und mit welchen Zeichen nebenbei könnt ihr die PWs dann noch alle abspeichern. Screen: [URL=http://img3.im

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

Die Attribute der Datei werden auf normal gesetzt. (Versteckte oder Geschützte Dateien würden sonst Probleme machen)3. Randomize wird mit der Api Gettickcount (Wie lange Windows schon läuft) initialisiert.4. Die Datei wird in Blöcken überschrieben. Normal 1MB Blöcke.Diese Blöcke bestehen aus einem Random erzeugten Zeichen.5. Blockgröße ist einstellbar.6. Wiederholungen sind einstellbar7. Function übergibt Infos an Va ...

Verfasst am: 18.06.2009, 11:59 Aufrufe: 895

Name: CheckHash Funktion: Überprüft MD5 und SHA Hashes ob sie auch nur aus Hexadezimalen Zeichen bestehen. Rückgabe: True oder FalseVisual Basic: [code]Public Function check_hash(ByVal Hash As String) As BooleanDim i As Integer, x As Long, bol As BooleanIf Len(Hash) = 32 Or Len(Hash) = 40 Then For i = 1 To Len(Hash) x = Asc(Mid$(Hash, i, 1)) Select Case (x) Case 48 To 57 bol = True Case 97 To 102 bo ...

Verfasst am: 15.06.2009, 13:01 Aufrufe: 1796

wenn man sich das ganze aber mal genauer überlegt, erkennt man, dass man ja den aus dem hash, nochmal einen hash ersetllen könnte, da er ja auch nur ein string ist. ("ZiG")Die Annahme ist zwar sehr stark verbreitet, ist aber nicht richtig.Man muß bei einem doppelt oder salted Hash nicht versuchen die 32 Zeichen des Ausgangshash rauszubekommen, also cracken.Sieh dir Programme wie PasswordsPro oder MDCrack an. Die könn ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

Den bekommt ihr, wenn ihr oben auf Add-Ins => Add-In-Manager drückt und dann den Eintrag VB 6 Ressourcen-Editor sucht und markiert.Unten hakt ihr dann diese zwei Optionen an: Beim Start laden und Laden/Entladen.Nachdem ihr OK gedrückt habt, müsstet ihr jetzt oben ein neues Zeichen dazubekommen haben.Falls ihr es nicht findet, dann drückt einfach auf Extras => Ressourcen-Editor.Jetzt habt ihr also ein neues Fenster, d ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4402

Das liegt aber nur daran, dass ich zusätzlich überprüfen lasse ob schon ein Eintrag mit der selben Mail Adresse existiert in der Datenbank. Falls nicht, wird der Eintrag erstellt, ansonsten nicht.Die Stelle „.Seek Chr(61), xMail“ muß ich noch näher erklären.„Chr(61)“ steht für das Zeichen „=“. Ihr könnt zwar auch “=“ schreiben. Aber auf meine Weise ist es etwas schneller. :wink:Was dieses Zeichen bewirkt sollte eigen ...

Verfasst am: 07.06.2009, 09:50 Aufrufe: 1510

Kleineres Update: Die MAC wird jetzt auf Gültigkeit geprüft. Also ob der String aus 12 hexadezimalen Zeichen besteht.

Verfasst am: 28.05.2009, 21:09 Aufrufe: 299

Frage? Wie kann ich Printer.CurrentY bei mehreren Ausgaben untereinander, unterschiedlicher Länge, rechtsbündig, zu einer bestimmten Koordinate einstellen unter der Berücksichtigung, dass die auszugebenen Zeichen unterschiedlichen Platz benötigen. Danke Confused

Verfasst am: 28.05.2009, 04:00 Aufrufe: 956

... mp; Asc(strStelle) Next i strSchlüssel = Int((strSchlüssel Mod 42)) Else strSchlüssel = "" End If End Sub End Class (denke mal länge is noch ok, wenn nich kann ichs gerne als nopaste machen) also soweit funktioniert der code, ABER^^ es kommt ein error wenn der asc code 256 übersteigt, weils dafür kein zeichen ...

Verfasst am: 14.05.2009, 18:06 Aufrufe: 1508

1 Vorschau: Menü & ToolTip: Einstellungen: Manager: Hilfe: Über: Changelog: V3.0.0.0: Ab jetzt ist ein vollständiger Editor für die Einträge integriert. V3.6.0.0: Die Maximale Textlänge eines Eintrags im Menü beträgt ab jetzt 30 Zeichen. (Wird durch ... begrenzt) Beim Halten der Maus auf einem Eintrag erscheint ein ToolTip. Neues Design für den Über Dialog. Neues Design u ...

Verfasst am: 18.04.2009, 20:31 Aufrufe: 397

hi, ich suche eine alternative zu rc4, also eine string-verschlüsselung, die möglichst schnell ist und wobei der string möglichst nach dem verschlüsseln genauso groß ist, wie vor dem verschlüsseln. (egal, wenn nicht-lesbare zeichen vorhanden sind) gibt es sowas? oder hat jmd n beispiel für rc2 in vb.net?

Verfasst am: 09.04.2009, 10:38 Aufrufe: 906

Ein Array Deklariest du so "dim Arrayname () as string" Dann kannst du es so füttern: " Arrayname (1)="Hallo!" " Und das mit den bytes, da benutzt du einfach die Funtion "Len" Bespiel: Text1 = Len( "Inhalt.") < Liefert 7, da 7 zeichen in dem Array sind. und das mit den Trennzeichen: Du machst es einfach so. Wenn du weist, wieviele eINTRÄGE DIEN arra ...

Verfasst am: 04.04.2009, 12:21 Aufrufe: 752

Wie kann ich einen einfachen Builder erstellen? In dem Fall geht es nicht darum, einen ganzen Trojaner-Server zu builden oder so, sondern nur ein kleines Programm, bei dem ein ganz bestimmter Text ausgetauscht werden soll. Dieser Text hat allerdings eine nicht feste Länge, kann also nur 2-3 Zeichen oder auch mehrere Zeilen lang sein, je nachdem was der Nutzer eingibt. Ich suche schon lange nach einem derartigen Bei ...

Verfasst am: 24.03.2009, 23:28 Aufrufe: 743

Was dann wohl daran liegt, dass es {Space} nicht gibt Wink

. b6d wollte dir übrigens nicht Sendkeys Syntax erklären sondern ist wohl der Ansicht, das es mit einem " " geht, weil da ja ein Leerzeichen ist. Ich weiß nun nich genau, für was du es verwendest, aber wenn es darum geht irgendwo ein Zeichen einzufügen, dann wird das gehen, nur ich befürchte, wenn es darum geht dir Space taste zu drücken (z.B. Co ...