Hot Fox

segunda-feira, 31 de agosto de 2009

RE: [usuarios_fox] Importar TXT a DBF

Gracias amigo, me sirvio de mucho tu ejemplo

--- El lun, 31/8/09, Jairo Enrique Berrío S. <jairo.berrio@tke-grupothyssenkrupp.com.co> escribió:

De: Jairo Enrique Berrío S. <jairo.berrio@tke-grupothyssenkrupp.com.co>
Asunto: RE: [usuarios_fox] Importar TXT a DBF
Para: usuarios_fox@yahoogrupos.com.mx
Fecha: lunes, 31 agosto, 2009 4:10

Roberto prueba con este código que hace exactamente eso, tiene que usar
visual foxpro 9.0

CLOSE ALL

SET STEP ON

CREATE CURSOR cur_solucion(codigo c(15), razon c(50)) &&Cursor para guardar
los datos

cadena = FOPEN('c:\archivo.txt') &&Aqui se cambia el nombre del archivo con
el path es importante

DO WHILE ! FEOF(cadena)

linea = FGETS(cadena)

FOR I = 1 TO getWordCount(nom, '|')

m.codigo = LEFT(GETWORDNUM(linea,1,'|'),2) && se extracta solo los 2
primeros del código

m.razon = GETWORDNUM(linea,2,'|') && se obtiene la razon
social

ENDFOR

INSERT INTO cur_solucion FROM memvar

ENDDO

=FCLOSE(cadena)

**aqui podemos copiar el archivo o el cursor a otro lado

logo_vert2

tk_logo

Jairo Enrique Berrío S.

I.T. Colombia

ThyssenKrupp Elevadores S.A.

Av Kra 45 # 118 - 30 Of. 704 Bogotá –Colombia

Teléf : (571) 6294301

Móvil : (315) 2449147

E-Mail: jairo.berrio@tke.com.co

Skype: tkcolombia

De: usuarios_fox@yahoogrupos.com.mx [mailto:usuarios_fox@yahoogrupos.com.mx]
En nombre de Roberto Lemos
Enviado el: Domingo, 30 de Agosto de 2009 11:29 a.m.
Para: Yahoo UsuariosFox
Asunto: [usuarios_fox] Importar TXT a DBF

Hola Amigos :

Tengo unos archivos de texto delimitados con el caracter "|", algo asi

20189254602|DISEÑOS FLORES S.R.L.|SOCIEDAD IRREGULAR|-|-|HABIDO|
20386431427|GRUPO LA REYNA S.A.C.|SOCIEDAD ANONIMA CERRADA|-|-|HABIDO|

Quiero importar solo los 2 primeros campos, el Ruc (codigo) y la Razon
Social,

Probe con :

APPEND FROM Ingresos.txt DELIMITED WITH |

pero no me da el resultado que deseo, alguna idea por favor

[Se han eliminado los trozos de este mensaje que no contenían texto]

[Se han eliminado los trozos de este mensaje que no contenían texto]

------------------------------------

Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

Enlaces a Yahoo! Grupos

[Se han eliminado los trozos de este mensaje que no contenían texto]

__._,_.___

Mensajes con este tema (4) Responder (mediante la Web) | Crear un tema nuevo

Mensajes

Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

Modificar la configuración mediante la Web (ID de Yahoo! obligatoria)
Modificar la configuración mediante el correo: Cambiar a resumen diario | Cambiar el formato a Tradicional
Visita tu grupo | Condiciones de uso de Yahoo! Grupos | Cancelar suscripción

__,_._,___

RE: [usuarios_fox] Importar TXT a DBF

Roberto prueba con este código que hace exactamente eso, tiene que usar
visual foxpro 9.0

CLOSE ALL

SET STEP ON

CREATE CURSOR cur_solucion(codigo c(15), razon c(50)) &&Cursor para guardar
los datos

cadena = FOPEN('c:\archivo.txt') &&Aqui se cambia el nombre del archivo con
el path es importante

DO WHILE ! FEOF(cadena)

linea = FGETS(cadena)

FOR I = 1 TO getWordCount(nom, '|')

m.codigo = LEFT(GETWORDNUM(linea,1,'|'),2) && se extracta solo los 2
primeros del código

m.razon = GETWORDNUM(linea,2,'|') && se obtiene la razon
social

ENDFOR

INSERT INTO cur_solucion FROM memvar

ENDDO

=FCLOSE(cadena)

**aqui podemos copiar el archivo o el cursor a otro lado

logo_vert2

tk_logo

Jairo Enrique Berrío S.

I.T. Colombia

ThyssenKrupp Elevadores S.A.

Av Kra 45 # 118 - 30 Of. 704 Bogotá –Colombia

Teléf : (571) 6294301

Móvil : (315) 2449147

E-Mail: jairo.berrio@tke.com.co

Skype: tkcolombia

De: usuarios_fox@yahoogrupos.com.mx [mailto:usuarios_fox@yahoogrupos.com.mx]
En nombre de Roberto Lemos
Enviado el: Domingo, 30 de Agosto de 2009 11:29 a.m.
Para: Yahoo UsuariosFox
Asunto: [usuarios_fox] Importar TXT a DBF

Hola Amigos :

Tengo unos archivos de texto delimitados con el caracter "|", algo asi

20189254602|DISEÑOS FLORES S.R.L.|SOCIEDAD IRREGULAR|-|-|HABIDO|
20386431427|GRUPO LA REYNA S.A.C.|SOCIEDAD ANONIMA CERRADA|-|-|HABIDO|

Quiero importar solo los 2 primeros campos, el Ruc (codigo) y la Razon
Social,

Probe con :

APPEND FROM Ingresos.txt DELIMITED WITH |

pero no me da el resultado que deseo, alguna idea por favor

[Se han eliminado los trozos de este mensaje que no contenían texto]

[Se han eliminado los trozos de este mensaje que no contenían texto]

__._,_.___

Mensajes con este tema (3) Responder (mediante la Web) | Crear un tema nuevo

Mensajes

Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

__,_._,___

Re: ]] XL-mania [[ sederhanakan select case

Om om om .....

karena hasil CASE nya semua sama karakternya, maka dibikin fungsi yang bisa dipanggil aja oom......
' FUNGSI
Public Function berwarna(vString) As String
With vString
    .Interior.Color = RGB(0, 0, 255)
    .Font.Color = RGB(255, 255, 255)
    .Font.Bold = True
End With
End Function

sehingga casenya
' EXAMPLE

Case "TN-A"
   Call berwarna(c) ' --- > MEMANGGIL FUNGSI dengan identifikasi variabel nilai c
Case "TN-B"
    Call berwarna(c)
Case "TN-D"
    Call berwarna(c)
Case "TN-E"
    Call berwarna(c)

Filenya terlampir oomm...

Thanks
Puthut Wibowo
Pengguna VB6 bukan EXCEL

--- On Sat, 8/29/09, Sandy Warsito <mank_ujank@yahoo.com> wrote:

From: Sandy Warsito <mank_ujank@yahoo.com>
Subject: ]] XL-mania [[ sederhanakan select case
To: XL-mania@yahoogroups.com
Date: Saturday, August 29, 2009, 8:07 AM

Dear Suhu-suhu Excel yang budiman,

Saya telah menulis code seperti di bawah dan sudah bekerja dengan baik, namun dengan listing seperti ini sepertinya akan kesulitan jika suatu saat nanti perlu mengedit case-case nya. Please help untuk menyederhanakannya sehingga mengedit case akan lebih mudah.

Makasih.

'=========== ========= ========= ========= ========= =======

Sub Mark_South()

For Each c In Range("D10:D300" ).Cells
Select Case Left(c.Value, 4)
Case "TN-A"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-B"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-D"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-E"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-F"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
End With
Case "TN-G"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-H"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-J"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-R"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-S"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-T"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-T"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With

Case "TN-X"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With

End Select
Next c
End Sub

'=========== ========= ========= ========= ========= =======

__._,_.___

Messages in this topic (6) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat menjalankan ibadah puasa...                               |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

]] XL-mania [[ Fungsi F2 dalam VBA

Selamat sore....

Saya bekerja sebagai accounting di salah satau perusahaan, sekarang ini saya sedang melakukan pekerjaan mengedit data angka menjadi 0, contohnya angka 200 dikalikan 0, hasilnya 0. dan angka tersebut diharuskan pakai rumus =200*0 tidak bisa langsung di ganti 0 supaya dilain waktu kita ambil kembali angka tsb jika dibutuhkan, sekarang ini saya lakukan secara manual, sedangkan jumlah angka sekitar seribuan baris, coba anda bayangkan jika dilakukan manual harus menekan F2 lalu Home lalu pakai = dan di kali 0,bukannya saya malas untuk mengerjakan tetapi siapa tau Anda yg selaku mahir dalam VBA bisa membuat satu listing macro yang mana jika di klik tombol tersebut maka secara otomatis angka tersebut dari angka sebelumnya 200 menjadi =200*0 sehingga hasilnya 0.
Terima kasih atas bantuannya.

Terima kasih

Wassalam

__._,_.___

Messages in this topic (1) Reply (via web post) | Start a new topic

Messages

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

]] XL-mania [[ Bagai Rata Quantity

dear suhu xl,

mohon pencerahan ;

Saya punya varian 1 dan 2, masing2 qty 2, tapi punya 4 area (A,B,C,D) untuk di bagi. Sehingga hasil-nya seperti yang ada di attachment, area A dan B, dapat varian 1, sedang area C dan D dapat varian 2 masing 1 piece. Bagaimana rumus-nya dalam masing cell
Lalu saya punya QTY 7, yang hasilnya harus sesuai dengan urutan A-B-C-D = 2-2-2-1
Contoh dalam attachment

warm regards,
Nico

__._,_.___

Messages in this topic (1) Reply (via web post) | Start a new topic

Messages

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Re: ]] XL-mania [[ sederhanakan select case

waduh...
itu makronya nguawur sekali...
belum dicoba sudah dikirim.., maaf..

seharusnya begini

Sub Mark_South1()
   Dim c As Range
   Range("D10:D300").ClearFormats

   For Each c In Range("D10:D300").Cells
      If Left(c.Value, 3) = "TN-" Then
      Select Case Mid(c.Value, 4, 1)
         Case "A", "B", "D", "E", "F", "G", "H", "J", "R", "S", "T", "X"
             With c
               .Interior.Color = RGB(0, 0, 255)
               .Font.Color = RGB(255, 255, 255)
               .Font.Bold = True
             End With
         End Select
      End If
   Next c
End Sub

atau begini:

Sub Mark_South2()
   Dim c As Range, k4 As String
   Range("D10:D300").ClearFormats

   For Each c In Range("D10:D300").Cells
      If Left(c.Value, 3) = "TN-" Then
         k4 = Mid(c.Value, 4, 1)
         If InStr(1, "ABDEFGHJRSTX", k4) > 0 Then
             With c
               .Interior.Color = RGB(0, 0, 255)
               .Font.Color = RGB(255, 255, 255)
               .Font.Bold = True
             End With
         End If
      End If
   Next c
End Sub

2009/8/31 siti Vi <setiyowati.devi@gmail.com>

Dear mang ujank,

berhubung semua formatting (Font Bolding, Kolor Font, Kolor Interior) ternyata SAMA
maka perintah memformat cukup ditulis sekali.

berhubung (lagi) kriteria untuk 4 huruf pertama pada tiap cell, dari "TN-A" sampai "TN-Z"
dapat pula dijaring dengan kriteria : 3 huruf pertama = "TN-"
maka tidak perlu lagi ada pemilihan BANYAK CASE, cukup SATU logical test dalam IF saja

Mungkin jadinya seperti ini :

Sub Mark_South()
Dim c As Range
For Each c In Range("D10:D300").Cells
    If Left(c.Value, 3) = "TN-" Then

      With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
      End With
    End If
Next c
End Sub

2009/8/29 Sandy Warsito <mank_ujank@yahoo.com>

>
> Dear Suhu-suhu Excel yang budiman,
>
> Saya telah menulis code seperti di bawah dan sudah bekerja dengan baik,
> namun dengan listing seperti ini sepertinya akan kesulitan jika suatu saat nanti
> perlu mengedit case-case nya. Please help untuk menyederhanakannya
> sehingga mengedit case akan lebih mudah.
> Makasih.
>
> '====================================
>
> Sub Mark_South()
> For Each c In Range("D10:D300").Cells
> Select Case Left(c.Value, 4)
> Case "TN-A"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-B"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-D"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-E"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-F"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
> End With
> Case "TN-G"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-H"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-J"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-R"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-S"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-T"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-T"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> Case "TN-X"
>     With c
>         .Interior.Color = RGB(0, 0, 255)
>         .Font.Color = RGB(255, 255, 255)
>         .Font.Bold = True
>     End With
> End Select
> Next c
> End Sub
> '==================

__._,_.___

Messages in this topic (5) Reply (via web post) | Start a new topic

Messages

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

domingo, 30 de agosto de 2009

RE: ]] XL-mania [[ sederhanakan select case

Dear Mas Sandy,

Saya coba bantu :

'======================================================

Sub Mark_South()

For Each c In Range("D10:D300").Cells
Select Case Left(c.Value, 4)
Case "TN-A", "TN-B", "TN-D", "TN-E", "TN-F", "TN-G", "TN-H", "TN-J", "TN-R", "TN-S", "TN-T", "TN-X"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With

End Select
Next c
End Sub

'======================================================

Kalau stringnya selalu diawali dengan string "TN-" maka bisa disederhanakan lagi menjadi:

'======================================================

Sub Mark_South()

For Each c In Range("D10:D300").Cells
Select Case Mid(c.Value, 4,1)
Case "A", "B", "D", "E", "F", "G", "H", "J", "R", "S", "T", "X"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With

End Select
Next c
End Sub

'======================================================

Salam Sukses,

Marly Lumenta

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Sandy Warsito
Sent: Saturday, August 29, 2009 8:07 AM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ sederhanakan select case

Dear Suhu-suhu Excel yang budiman,

Saya telah menulis code seperti di bawah dan sudah bekerja dengan baik, namun dengan listing seperti ini sepertinya akan kesulitan jika suatu saat nanti perlu mengedit case-case nya. Please help untuk menyederhanakannya sehingga mengedit case akan lebih mudah.

Makasih.

'======================================================

Sub Mark_South()

For Each c In Range("D10:D300").Cells
Select Case Left(c.Value, 4)
Case "TN-A"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-B"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-D"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-E"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-F"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
End With
Case "TN-G"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-H"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-J"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-R"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-S"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-T"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With
Case "TN-T"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With

Case "TN-X"
    With c
        .Interior.Color = RGB(0, 0, 255)
        .Font.Color = RGB(255, 255, 255)
        .Font.Bold = True
    End With

End Select
Next c
End Sub

'======================================================

__._,_.___

Messages in this topic (4) Reply (via web post) | Start a new topic

Messages

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

segunda-feira, 31 de agosto de 2009

domingo, 30 de agosto de 2009

Arquivo do blog