Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ASCII(Clipper nach Oracle
Autor: desperado
Datum: 06.11.05 22:04
Grüßt Euch!! Ich brauche mal die Hilfe von Euch, denn ich schaffe es einfach nicht die Zahlenkolonne weiter zu verarbeiten. Ich habe eine Zahlenreihe aus einem alten Programm namens Clipper, die ich ins VB.Net einlesen möchte. Die Zahlenreihe sieht so in etwas aus: 933746435623436 3636 000 3636 58564 6363346 474307503475363 3753 040 4394 94944 4949494 487587474744637 7336 000 3356 34355 3336777 Usw. Kann mir einer sagen wie ich diese Eigenartigen Zahlen einzeln auslesen kann um sie anschließend in eine Oracle Datenbank zu schreiben. Hier mal meine Versuche, ich kann die Daten im Textfeld1 sehen und mir auch teilweise einzeln im Textfeld 3 aufrufen, aber mit dem Zeilenumbruch gibt es Probleme. Hinzu kommt noch, dass mehrere Leerzeichen bei mir Probleme bereiten. Das weiterverarbeiten in die DB sollte ich selber hinbekommen, aber den Teil davor …., da hab ich Probleme. Imports System.IO Public Class Form1 Inherits System.Windows.Forms.Form 'Public i As Integer Public d As Integer Public strTeile() As String Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim reader As New StreamReader("test.dat", System.Text.Encoding.Default) content = reader.ReadToEnd Dim max As String = reader.ReadToEnd ' zuerst die Anzahl der Datenblöcke lesen 'Dim b As Integer 'Dim s As String = (content) 'Dim c() As Char = s.ToCharArray 'For b = 0 To c.GetUpperBound(0) ' If b = ("") Then ' b = +1 ' End If 'Next b Dim intLetzte As Integer = 0 Dim j As Integer = 0 Dim i As Integer For i = 0 To content.Length - 1 If content.Substring(i, 1) = " " Then ReDim Preserve strTeile(j) strTeile(j) = _ content.Substring(intLetzte, i - intLetzte) intLetzte = i + 1 j += 1 End If Next If j = 0 Then MessageBox.Show _ ("Es existiert kein Leerzeichen in """ & _ content & """-") Else ReDim Preserve strTeile(j) strTeile(j) = content.Substring(intLetzte) End If strTeile(j) = content.Substring(intLetzte) reader.Close() 'Und noch der Textbox übergeben: TextBox1.Text = content 'TextBox2.Text = max End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim i As Integer For i = 0 To strTeile.Length - 1 content = content & "/" & strTeile(i) 'MessageBox.Show _ ' ("Es existieren Leerzeichen in """ & _ ' content & """-") Next Dim g As Integer Dim strAnzeige As String Dim wert1 As String content = Me.TextBox1.Text content = content.Trim strTeile = content.Split(" ") For g = 1 To strTeile.Length - 6 wert1 = strTeile(g) Next ListView1.Show() TextBox3.Text = wert1 End Sub End Class Hat jemand eine Idee oder einen Tipp für mich? Danke Euch schon mal im Voraus!!

ASCII(Clipper nach Oracle	767	desperado	06.11.05 22:04
Re: ASCII(Clipper nach Oracle	500	sh!	07.11.05 07:10
Re: ASCII(Clipper nach Oracle	581	sh!	07.11.05 07:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen