hat einer eine Idee wie ich usbekische Schrift aus einer Excel Liste einlesen kann?
Ziel des ganzen ist das ich den Text in ein RTF Format umwandeln möchte und dann in die DB einfügen.
Mein Problem ist das ich beim einlesen der Excel liste einen leeren Datensatz erhalte.
hier der Text =>
Artikelnummer Bezeichnung 2
B10001-0002610 Сверла – твердосплавные сверла с шагом 0,01 мм, 0,26x1,0x30 mm
Code: Alles auswählen
oExcel := CreateObject("Excel.Application")
IF Empty(oExcel)
FEHLER("Excel ist nicht installiert!")
RETURN .F.
ENDIF
oWorkBook := oExcel:workbooks:open("D:/IMPORT/OST-Express/testrussich.xls")
aValues := oWorkBook:workSheets(1):usedRange:value
oWorkBook:Close()
oRTF := XbpActiveXControl():new( oDlg:Drawingarea,, {10 ,270 }, { ((nRR/10)*nPixel)+( 0.5 *nPixel), oDlg:drawingarea:CurrentSize()[2]-130 } ,,,"{a0c97100-2786-11db-bdef-0013d350667c}")
oRTF:CLSID := "TIS.TX.TextControl.16"
oRtf:license := "TS-5600260478"
//oRtf:controlFlags := OLECTRL_ACTSLIKELABEL
oRTF:UseGuiThread := .F.
oRTF:Create()
oRTF:Text := aValues[1][2]
msgbox(aValues[2][1])
msgbox(aValues[2][2])
cFeld := oRTF:RTFSelText
cFeld := SUBSTR( cFeld ,1, RAT("\par",cFeld)-1) + "}"
xField := cFeld
Vielen Dank schon mal im Voraus