Jump to content

mike34

Members
  • Posts

    8
  • Joined

  • Last visited

Everything posted by mike34

  1. Hi, how can i read the right umlauts from a memo field of an vfpro dbf file? the actual output looks like the added image. i use the following connection string: $sqlCon.Open("Provider=vfpoledb.1;Data Source=x:\DATA\;Collating Sequence=general;")
  2. many thanks.... $array = Stringsplit($getrimmt, chr(13) & chr(10), $STR_ENTIRESPLIT) was the answer :-)
  3. hi, i use the following code to connect to a Visual Foxpro db: #include <FileConstants.au3> #include <MsgBoxConstants.au3> $sqlCon = ObjCreate("ADODB.Connection") $sqlCon.Mode = 16 ; sharedenynone $sqlCon.CursorLocation = 3 ; client side cursor $sqlCon.Open("Provider=vfpoledb.1;Data Source=x:\DATA\;Collating Sequence=general;") if @error Then MsgBox(0, "ERROR", "Failed to connect to the database") Exit EndIf $sqlRs = ObjCreate ("ADODB.Recordset") if not @error Then $sqlRS.open("select IDENT, PICTURES from gbmas.dbf where STATUS = 'I'", $sqlCon) if not @error Then ;Loop until the end of file While Not $sqlRS.EOF ;Retrieve data from the following fields $OptionName = $sqlRS.Fields('IDENT').Value $OptionVal = $sqlRS.Fields('PICTURES').Value Local $sFileRead = FileReadLine($OptionVal, 1) MsgBox($MB_SYSTEMMODAL, "", "First line of the file:" & @CRLF & $sFileRead) ;MsgBox(0, "Record Found", "Nummer: " & $OptionName & @CRLF & "GTYP: " & $OptionVal) $sqlRS.MoveNext WEnd $sqlRS.close $sqlCMD = ObjCreate("ADODB.Command") $sqlCMD.ActiveConnection = $sqlCON $sqlCMD.CommandText = "update Opts.dbf set value = '.F.' where name = 'Option1'" $sqlCMD.Execute EndIf EndIfthe column "Pictues" have multiple rows with unc paths. i want to read the content of the column "pictures" line by line to copy the unc files to another destionation with filecopy. i start to try with fileread line. but it does not work. Any ideas ? many thanks mike the content of column pictures looks like: U:\Bilder\Neumaschinen\P1080219.JPG U:\Bilder\P1080198.JPG U:\Bilder\P1080201.JPG U:\Bilder\30-TTR4400-II\P1080204.JPG
  4. Hi there, is it possible to check a local netowork for an specific mac adress ? I would like to scan a network to check if a smartphone is available. If not i would like to activate a webcam. to scan for a specific ip adresse is quite easy but i dont know how to do it with a mac adress. greetings mike
  5. Hi , :"> i am new in Autoit but i love it so far. Is there a way to check if a ClassnameNN with secific text is active ? I have a mdi programm and the sub forms where openend with classeNameNN = xbpdialog1 text = Lieferanten - suchliste for example so i would like to open a dialog box when the above Classnamenn with the specific text is active. Is that possible ?? Greetings Mike
  6. :party Hi there, i have the following textfile: Suchprofil= [$ic=c02] Datenbank=d:\cds\USP2005145 | Dokument=US 50072186 A1 20050407 | Nummer=281 Datenbank=d:\cds\USP2005146 | Dokument=US 50072720 A1 20050407 | Nummer=65 Datenbank=d:\cds\USP2005146 | Dokument=US 50072722 A1 20050407 | Nummer=67 Datenbank=d:\cds\USP2005146 | Dokument=US 50072732 A1 20050407 | Nummer=77 Datenbank=d:\cds\USP2005146 | Dokument=US 50072739 A1 20050407 | Nummer=84 Now i want to delete the "| Nummer=xx" characters in each line where the numbers are different so stringreplace did not work here? i tried it liek this: $text55=StringReplace($text4,"| Nummer=","xxxxxxxxxxxxxxxxxxxxxxxxx ") filewrite ..... But of course onle the "|nummer=" would be replaced. Has anyone a tip for me? Thanks Greetings Mike :
  7. hello, I created a while loop like this: while 1 $line = FileReadLine($file) .... .... // now in the middle of the loop two possible windows could appear. WinWaitActive("window title 1") If this window get active i want to send the enter key end go to the end of the loop like: send ("{ENTER}") exit loop WinWaitActive("window title 2") if tihs window get active i want to normaly continue the loop. .... .... .... wend i tried it with if and do until but i always get error when starting the au3 file. would be great if some could help me. greetings Mike
×
×
  • Create New...