dcsimg

Search:

Type: Posts; User: asymetrix

Page 1 of 2 1 2

Search: Search took 0.11 seconds.

  1. Replies
    24
    Views
    1,738

    Re: Code to filter a comma delineated text file

    I was looking into this. I need a few output examples to check..
  2. Replies
    10
    Views
    914

    Re: Read and write new csv file

    Try this

    I had a similar problem and remembered I had made a few functions to help :D



    Option Explicit

    Dim CSV() As String
  3. Replies
    27
    Views
    2,059

    Re: Reading A Textfile Problem

    FF = FreeFile
    Open "f:\" & strRX & "\C5s.txt" For Output As #FF
    For i = 19 To 22
    Print #FF, sLine(i)
    Next i
    Close #FF



    This would write the C5x lines to a file
  4. Replies
    27
    Views
    2,059

    Re: Reading A Textfile Problem

    Dim i As Integer, FF As Integer, Num As Integer
    Dim s As String, ReadLine As String, sLine(26) As String
    Dim sum As String, strData As String
    Dim t() As String


    should fix it.
    ...
  5. Replies
    27
    Views
    2,059

    Re: Reading A Textfile Problem

    Try This :




    Private Function ReadFile(FilePath As String)
    Dim i As Integer, FF As Integer, Num As Integer
    Dim s As String, ReadLine As String, sLine(26) As String
    Dim sum As...
  6. Replies
    25
    Views
    6,115

    Re: Get with Inet not working

    try making these bat files and test if that works :



    ftp -i -s:ftpdownload.bat


    ftpdownload.bat
  7. Thread: Time

    by asymetrix
    Replies
    7
    Views
    825

    Re: Time

    Up until Windows 95, Windows used cooperative multitasking. Once Amiga was brought to the masses with Preemptive multitasking - all Windows versions '95 to Windows 8 added and switched to Preemptive...
  8. Replies
    4
    Views
    637

    Re: get value in between phrase

    try this



    Debug.Print SearchID("The quick brown fox jumps ON over the lazy dog WHERE near the bank of the river.", "ON", "WHERE")

    Public Function SearchID(ScanString As String, StartMarker...
  9. Replies
    17
    Views
    2,259

    Re: Using MSHTML Offline

    first you add the proper LineFeed at the end of each line, so you can see the HTML in a textbox.
    Once you have this you can parse an array of strings looking for keywords and act accordingly.

    I...
  10. Replies
    18
    Views
    1,905

    Re: Help with VB6 COMPILE

    OK seems there is an issue with the way PM is packaging / compiling the package.

    But you do not have to use the package manager, just give someone the exe and see if it works in their system. I...
  11. Thread: LOOP array

    by asymetrix
    Replies
    2
    Views
    473

    Re: LOOP array

    try this


    Dim MyData() As String

    Call ReadFile (app.path & "\newFile.txt", MyData)

    Private Sub ReadFile(ThisFile As String, ByRef fdata() As String)

    Dim f As Integer
  12. Replies
    16
    Views
    1,477

    Re: [RESOLVED] problem in a progrma

    It seems because you read as binary, I think the CR/LF are missing.

    you may need to do a search / replace of vbCR with vbCRLF or vbLF with vbCRLF or similar combinations.
    Yes the font changes the...
  13. Replies
    18
    Views
    1,905

    Re: Help with VB6 COMPILE

    Try compile the exe before using the package manager. In IDE File -> Create Project EXE.

    A compile fail is a serious issue that suggests incorrect coding practice or irregular code combination....
  14. Re: Assigning variables values from a limited pool

    Here i have combined the two functions into 1, it should do the same thing :



    Private Sub PickUniqueNumber(Items As Long, MaxItemNumber As Long, ByRef varNumberArray() As Long)
    '...
  15. Re: Assigning variables values from a limited pool

    Sure its good to know whats happening, just use the functions if you find them useful :)

    Though your problem is simple, the actuality of selecting UNIQUE numbers is a little tricky.
    ...
  16. Replies
    18
    Views
    1,905

    Re: Help with VB6 COMPILE

    Use the package deployment-wizard in the Visual Studio Tools menu.

    http://www.developerfusion.com/article/27/package-deployment-wizard/2/
  17. Replies
    16
    Views
    1,477

    Re: problem in a progrma

    what does it look like when you do unicode :


    StrConv(s, vbUnicode, 0)

    also change the textbox font eg

    textbox.fontname ="Arial"
    textbox.Font.Charset = 0
  18. Replies
    17
    Views
    2,259

    Re: Using MSHTML Offline

    I always just read the html into a multiline textbox to see the code, then use : WebBrowser1.Navigate (Path) to view the HTML.
  19. Replies
    3
    Views
    493

    Re: webbrowser problem help

    Please show what code you have currently.
  20. Replies
    25
    Views
    6,115

    Re: Get with Inet not working

    it looks like your host has banned your IP for having too many connections.

    I had a similar problem - the hoster always denied that they did anything until i asked if any IPs are getting blocked....
  21. Replies
    18
    Views
    1,905

    Re: Help with VB6 COMPILE

    It depends on if the other computers have the required files. Look in your projects References, Componants and see what it depends on.The VBRuntime libraries may be required.

    Do you have Visual...
  22. Replies
    16
    Views
    1,477

    Re: problem in a progrma

    try this before save :



    s = StrConv(s, vbFromUnicode)
  23. Re: Assigning variables values from a limited pool

    try this



    Dim a As Long, b As Long, c As Long, d As Long

    Dim MyNumbers() As Long
    Dim Items As Long

    Call PickNumber(4, 5, MyNumbers)
  24. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    what do you want to happen when got focus ?

    what you want happen when lost focus ?

    gotta go. I will be back in a few hours..
  25. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    it should look like this :



    Option Explicit

    Dim itemlist() As String
    Dim DataList() As Integer
  26. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    delete UpdateList2()

    delete CheckList2()

    delete txtSearch2_Change()

    delete txtSearch2 control

    delete Dim itemlist2() As String
    delete Dim DataList2() As Integer
  27. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    show the code.

    delete all CheckList2 () function

    we just need those 2 above



    where is code for this ? if that is all - delete it
  28. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    dont need - check above corrections
  29. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    you need to copy paste the controls and name them accordingly.



    Dim itemlist2() As String
    Dim DataList2() As Integer

    Private Sub List1_Click()

    id = List1.ItemData(List1.ListIndex)
  30. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    show example ?
  31. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    each time click list1 add to list2
    or each time click list1 clear list2 then add to list2 ?

    what output when click list2 items ?
  32. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    List1.ListIndex= -1 this should never be -1

    you need find out what makes it -1

    do you have List1_Change() ?

    - just read your message - glad its working. I will look into it, but are you...
  33. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    ok, i think i got it :



    Option Explicit

    Dim itemlist() As String
    Dim DataList() As Integer
  34. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    try this

    id = List1.Itemdata(List1.ListIndex)

    does this work ?

    what are the original values for List1.ItemData()

    what numbers are after search ?:
    List1.ItemData(0)
  35. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    use public



    public Function ComboItemToID(ThisItem As String) As Integer
    Dim i As Integer

    ComboItemToID = -1
    For i = 0 To UBound(itemlist)
    If ThisItem = itemlist(i)...
  36. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    also try this :



    Private Sub List1_Click()
    dim id as integer
    id = ComboItemToID(List1.List(List1.ListIndex))

    Debug.Print id, List1.Itemdata(id)
  37. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    Private Sub List1_Click()

    id = ComboItemToID(List1.List(List1.ListIndex))
    Debug.Print id, List1.List(List1.ListIndex)

    End Sub
  38. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    when i delete search box and retype everything is fine. when i click it shows the correct info in debug. please explain what id is for and where you use it.
  39. Replies
    36
    Views
    3,070

    Re: how to search a ListBox

    Private Sub List1_Click()
    debug.print List1.List(List1.ListIndex)
    debug.print List1.ListIndex
    End Sub


    what exactly do you want happen when you click the listbox ?
  40. Replies
    15
    Views
    1,194

    Re: Simple.But im new with it.Heeeelp

    It looks like he is copying vb.net code in VB 6, then showing the screenshots somehow.
Results 1 to 40 of 67
Page 1 of 2 1 2



Featured


Click Here to Expand Forum to Full Width