ehrlich? sagt 30 Grad bei uns an ;)

hats bei uns schon allerdings hab ich in der früh was von regen am nahmittag gehört,

zum glück nagelt die sonne niocht so runter

jawohl, 5 Beiträge heute im UST, super!!!!!!!!! :D

Und ?

guten morgen :sprachlos:

nix und, das sind Tatsachen :p

Aha .

ist ZA nicht schön :grinsen:

Was VBA*st du denn?

Guten Morgen!

Montag Vormittag, den ersten Kundentermin hab ich hinter mir, der nächste wartet schon -_-

Was ist VBA??

Und übrigens: Chirs, ich hoff, du erstickst an deinen Cevapcici oder an den Pommes! Wie kann man nur so grausam sein und sowas in ein Forum schreiben?! :(

Visual Basic for Application ;)

Sprich Visual Basic wie is in Word oder Excel Makros vorkommt! Visual Basic wirst ja kennen? (= Programmiersprache)

Visual Basic :D

deit: zu langsam *grümmel*

Haha... einmal war da günne schneller! :D

meine neueste errungenschaft :o

*wieder stück weiter ist*


Option Compare Database

Public Sub import_las_button_Click()

Dim str As String 'String
Dim v As Variant 'Split
Dim delim As String 'Delimiter zur Stringtrennung
Dim datastart As String 'Zeichenfolge die im LAS-File direkt vor Datenbeginn steht - default "~A"
Dim datastarted As Boolean '"True" wenn der Datastart-String gesichtet wurde
Dim strl As Long 'String-Länge
Dim logpath As String 'Dateipfad
Dim i As Integer 'Laufvariable
Dim strSQL As String 'SQL String

Dim dept() As String 'Depth
Dim sw() As String 'Formation Water Saturation <=1.0 (Complex Litho Model)
Dim phie() As String 'Effective Porosity (Complex Litho Model)
Dim vcl() As String 'Volume of clay (Complex Litho Model)
Dim devi() As String 'Deviation
Dim tvd() As String 'True Vertical Depth

logpath = "C:\**********************\Chris\LogRep V2\Dataimport\dummy.las"
delim = " " 'Trennzeichen zwischen den Werten in der LAS/TXT
datastart = "~A"
datastarted = False

'Temporären Table für die LAS Daten erstellen.

strSQL = "CREATE TABLE Las_Temp" & _
" (val1 NUMBER NOT NULL," & _
" val2 NUMBER NOT NULL," & _
" val3 NUMBER NOT NULL," & _
" val4 NUMBER NOT NULL," & _
" val5 NUMBER NOT NULL," & _
" val6 NUMBER NOT NULL )"
DoCmd.RunSQL (strSQL)

Open logpath For Input As 1


ReDim Preserve dept(0)
ReDim Preserve sw(0)
ReDim Preserve phie(0)
ReDim Preserve vcl(0)
ReDim Preserve devi(0)
ReDim Preserve tvd(0)

status_txt.Value = "Importing data... "

Do While Not EOF(1)

If datastarted = True Then

Line Input #1, str
'doppelte trennzeichen entfernen
Do While InStr(str, delim & delim)
str = Replace(str, delim & delim, delim)
Loop

'übrig gebliebenes trennzeichen vor dem ersten wert entfernen
strl = Len(str)
str = Right(str, strl - 1)

'string trennen
v = Split(str, delim)

dept(UBound(dept)) = v(0)
sw(UBound(sw)) = v(1)
phie(UBound(phie)) = v(2)
vcl(UBound(vcl)) = v(3)
devi(UBound(devi)) = v(4)
tvd(UBound(tvd)) = v(5)

'werte in temporären table schreiben
strSQL = "INSERT INTO Las_Temp (val1, val2, val3, val4, val5, val6) " & _
"SELECT '" & v(0) & "', '" & v(1) & "', '" & v(2) & "', '" & v(3) & "', '" & v(4) & "', '" & v(5) & "'"
CurrentDb.Execute (strSQL)

ReDim Preserve dept(UBound(dept) + 1)
ReDim Preserve sw(UBound(sw) + 1)
ReDim Preserve phie(UBound(phie) + 1)
ReDim Preserve vcl(UBound(vcl) + 1)
ReDim Preserve devi(UBound(devi) + 1)
ReDim Preserve tvd(UBound(tvd) + 1)

Else
Line Input #1, str

If InStr(str, datastart) Then

datastarted = True

Else

datastarted = False

End If


End If

Loop

Close 1

status_txt.Value = "Done."


End Sub


\o/ \o/ \o/ \o/ \o/ \o/ \o/ \o/ \o/ \o/ \o/ \o/

weeeeeeeeeeeeeee!!

Die VBA (Visual Basic for Applications) Frage ist das dein Ernst? :confused:

Wenn gegrillt wird gehören Kewapizzi schon dazu. ;) :D

@ Chrisby
Wie ich sehe, vba'st du offensichtlich eine Datenbank! :D

naja mein "access projekt" ist eigentlich eine eigene software... also vom umfang her... passiert vieles über code, vieles über formular und vieles über datenbank... und alles muss schön ineinander greifen... der table der in dem code erstellt wird, wird sowieso wieder gelöscht, weil die eingangsdaten von der reihenfolge variieren können, und die spalten erst zugewiesen gehören... aber die funktion mach ich erst nachm essen :D

das ganze ding soll übrigens Reports erstellen, die ich via textmarken in eine Wordvorlage kopieren muss - aus er der access db - die ebenfalls generiert wird (aus .las files) die widerum aus unterschiedlichen geologen-software-suites generiert werden :D also sehr individuell... und unangenehm... :X

Hatte mit VB nie was zu tun...

hatte mit vb(a) bis vor 3 monaten auch nix zu tun :D

aber kann man eine sprache, kann man die anderen egtl auch - syntax is halt bisschen anders...

hatte auch noch nie das vergnügen mit vb -.-

Kennst QBasic noch? Damit haben wir damals angefangen, hat aber sehr viel geholfen um Visual Basic leichter zu verstehen! VBA is ja dann auch wieder a bisschen anders als das eigentliche VB! ;)

ich _kenne_ basic schon, aber nie programmiert...

PASCAL war meine erste... dannach C/C++ ... jetz eben VBA :D

Und VBA is wesentlich einfacher als C! :D


Themenwechsel: :D
Wo ist eigentlich der Miraculixx heute? :verwirrt:

.. bin eh da, nur gewöhn ichs mir immer mehr ab im forum soviel zu schreiben.

Du als großer IT Guru. :freches_grinsen: War auch nicht bös gemeint. ;)

Das freut mich aber! :D

Btw. Zu deiner Signatur:
Die Deutschen san super! Die werden Europameister und ich steh gut da, weil ich auf sie getippt habe! ;)

du und deine kaputte glaskugel,

deutrschland :)

.. Kennst den Spruch:

"Streite nie mit Idioten - Sie holen dich auf Ihr Niveau und schlagen dich dann mit Erfahrung... "




Seitdem hab ich Angst mit dir zu schreiben.

Guter Spruch :D :D

lol
*in mein sprücherl buch notier* :P

Übrigens... heute ist dein Track mit dabei, Herr Druide. Ich schätz mal so gegen halb 8.

.. aha - dann muss ich ma sister ihren laptop ausborgen.
meiner hat sich in die ewigen jagdgründe verabschiedet. :o

aber siehst eh gleich wenn ich online bin - mach mich bemerkbar ^^

schön langsam kommt der hunger :)

Falscher Thread !

Ich kenne nur "palim, palim" aus "Nonstop-Nonsens" :D

muss mal stevie seine posts unterbrechen :p

So, 11.250er Post :)

verdammt :sprachlos:

Eine Flasche Pommes bitte :D

Sorry - die haben wir nur in Dosen. :o