| Forum: VB.NET |
Thema:
ASCII(Clipper) in Oracle |
Von:
G. Guest (
06.11.2005 21:57) |
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!!
| Betreff |
Von |
Datum |
|
|
  |
Re: ASCII(Clipper) in Oracle
| Hallo,<br>ich hatte das mal in VB. da hat mir dieser Artikel sehr gut geholfen. Vielleicht lässt er sich auch für dich anwenden oder hilft. Das Script ist zu lang deswegen der Link... |
|
|
|
|
|
Thomas
Scherner
|
07.11.2005 08:43 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
