***[关注]:关于获取ListView中内容的问题

yunok 2004-03-27 02:20:02
有一个软件，它在自己的ListView中列出了很多IP地址。

我希望能够把该软件中ListView的所有内容（值）都取出来，保存成Txt。

请教大侠指点思路或赐赠代码。不胜感激。
...全文
98 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
yunok 2004-03-29
  • 打赏
  • 举报
 回复
结贴!感谢兄弟们!!
supergreenbean 2004-03-28
  • 打赏
  • 举报
 回复
我也写错了。今天真是睡觉睡太多了，老是要给自己打补丁，呵呵……

把其中一个
Call VirtualFreeEx(hProcess, ByVal lpListItemRemote, 0, MEM_DECOMMIT)
改成
Call VirtualFreeEx(hProcess, ByVal lpTextRemote, 0, MEM_DECOMMIT)

rainstormmaster 2004-03-27
  • 打赏
  • 举报
 回复
不用了，现在知道了，看来头晕的时候是不该写代码：）
rainstormmaster 2004-03-27
  • 打赏
  • 举报
 回复
to supergreenbean(超级绿豆) :
你的代码和我的代码主要区别在什么地方？现在我没有时间细看了，或者说说我的代码哪里有问题也可
supergreenbean 2004-03-27
  • 打赏
  • 举报
 回复
模块文件依然参照
http://expert.csdn.net/Expert/topic/2728/2728920.xml?temp=.9317743
里的，然后把里面的窗体代码部分改为下面这样就行了

Option Explicit

Private Sub Command1_Click()
Dim mhwnd As Long
mhwnd = 1705642 '这是我的句柄 ^_^
Dim i As Long, s As String
Dim dwProcessId As Long, hProcess As Long
Dim dwBytesRead As Long, dwBytesWrite As Long
Dim bSuccess As Long
Call GetWindowThreadProcessId(mhwnd, dwProcessId)
Dim lpListItemRemote As Long, lpTextRemote As Long
Dim nMaxLen As Long
nMaxLen = 1023
Dim szBuf() As Byte
ReDim szBuf(nMaxLen)
Dim lvItemLocal As LV_ITEM
Dim bWriteOK As Long

hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, 0&, dwProcessId)
If hProcess <> 0 Then
lpTextRemote = VirtualAllocEx(ByVal hProcess, ByVal 0&, nMaxLen + 1, MEM_COMMIT, PAGE_READWRITE)
lpListItemRemote = VirtualAllocEx(ByVal hProcess, ByVal 0&, Len(lvItemLocal), MEM_COMMIT, PAGE_READWRITE)
bWriteOK = WriteProcessMemory(ByVal hProcess, ByVal lpTextRemote, szBuf(0), nMaxLen + 1, dwBytesWrite)

Dim lItemCount As Long, lItemIndex As Long, lSubItemIndex As Long
Dim asItemText() As String
lItemCount = ListView_GetItemCount(mhwnd)
If lItemCount > 0 Then
ReDim asItemText(lItemCount - 1)
End If
lSubItemIndex = 1 '取得第几栏的文本
For lItemIndex = 0 To lItemCount - 1
lvItemLocal.iItem = lItemIndex
lvItemLocal.iSubItem = lSubItemIndex - 1
lvItemLocal.mask = LVIF_TEXT
lvItemLocal.cchTextMax = nMaxLen
lvItemLocal.pszText = lpTextRemote
dwBytesWrite = 0
bWriteOK = WriteProcessMemory(ByVal hProcess, ByVal lpListItemRemote, ByVal VarPtr(lvItemLocal), Len(lvItemLocal), dwBytesWrite)
i = SendMessage(mhwnd, LVM_GETITEMTEXT, lItemIndex, ByVal lpListItemRemote)
bSuccess = ReadProcessMemory(ByVal hProcess, ByVal lpTextRemote, szBuf(0), nMaxLen + 1, dwBytesRead)

asItemText(lItemIndex) = StrConv(LeftB(szBuf, InStrB(szBuf, ChrB(0)) - 1), vbUnicode)
Next

Call VirtualFreeEx(hProcess, ByVal lpListItemRemote, 0, MEM_DECOMMIT)
Call VirtualFreeEx(hProcess, ByVal lpListItemRemote, 0, MEM_DECOMMIT)
SaveToFile asItemText()
End If
CloseHandle hProcess

End Sub
Sub SaveToFile(asItemText() As String)
Dim lFreeFile As Long, i As Long
lFreeFile = FreeFile

Open "c:\ip.txt" For Output As #lFreeFile
For i = 0 To UBound(asItemText)
Print #lFreeFile, asItemText(i)
Next
Close #lFreeFile
End Sub
Function ListView_GetItemCount(ByVal hWnd As Long) As Long
ListView_GetItemCount = SendMessage(hWnd, LVM_GETITEMCOUNT, 0, ByVal 0&)
End Function
daisy8675 2004-03-27
  • 打赏
  • 举报
 回复
回复回复我的吧！我好可怜咯！
////////////////////
不是沒有回復你，是因為實在沒有時間去研究word。
老田低代码 2004-03-27
  • 打赏
  • 举报
 回复
回复回复我的吧！我好可怜咯！
yunok 2004-03-27
  • 打赏
  • 举报
 回复
rainstormmaster(暴风雨 v2.0) 兄，您贴给我的答案比较符合，不过我只是Ctrl C，Ctrl V了一下，还没有完全实现要求。我修改一下再看看。非常感谢！
yunok 2004-03-27
  • 打赏
  • 举报
 回复
gigilee兄，当然不是。
您没有看到我在3楼写的什么吗？？

再次声明：gigilee，我要取得是第三方程序中Listview得值。不是我自己程序中的。晕死。
gigilee 2004-03-27
  • 打赏
  • 举报
 回复
yunok
为何晕？
不是你的要求？
老田低代码 2004-03-27
  • 打赏
  • 举报
 回复
借贵地一用，主要是我没有分了：
各位：
举例来说：我从数据库中读取了10人的姓名和地址，现在我希望根据他们的姓名、地址能够在Word中自动生成信封。前提我已经有了一个信封模板，就是将客户的姓名和地址替换在模板中的相应位置。并且每个信封为一页（如果有是个客户要求生成的文档有十页）。

比如格式如下：
---------------------------------------------------------------------
xx省1xx市1xx
姓名1

---------------------------------------------------------------------
xx省2xx市2xx
姓名2

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

xx省3xx市3xx
姓名3

---------------------------------------------------------------------
..........
yunok 2004-03-27
  • 打赏
  • 举报
 回复
gigilee，我晕。
gigilee 2004-03-27
  • 打赏
  • 举报
 回复
思路:
把listview里面的值读出，然后保存到txt文件里面

strPath = GetPath(gMDBPath) & gOutFileName

gFileNum = FreeFile
Open strPath For Output As #gFileNum

For i = 0 To UBound(DataString) - 1
Print #gFileNum, DataString(i)
Next
yunok 2004-03-27
  • 打赏
  • 举报
 回复
rainstormmaster兄，我晕到。好长。晚上回家研究。

继续求征思路或代码。
wzhnet 2004-03-27
  • 打赏
  • 举报
 回复
up
rainstormmaster 2004-03-27
  • 打赏
  • 举报
 回复
在
http://expert.csdn.net/Expert/topic/2728/2728920.xml?temp=.9317743
我贴了一段有问题的代码，你可以看看，顺便也帮我找找哪里错了
yunok 2004-03-27
  • 打赏
  • 举报
 回复
我原来的思路是想取得那个应用程序的窗口类名和句柄，然后去Find他的Listview的句柄等等，然后取出需要的内容。

结果：未遂。郁闷。
yunok 2004-03-27
  • 打赏
  • 举报
 回复
cso(sjxsoft) 大哥，您看清楚了吗？我是要取出来别人的应用程序中的Listview的列表值。而不是我自己写的程序中有Listview。

狂晕
cso 2004-03-27
  • 打赏
  • 举报
 回复
加个循环体
for i = 1 to ListView1.ListItems.count
? ListView1.ListItems(i).text
next i
保存就用open语句
当ListView有Header时 onItemClick里的position不正确的原因
当ListView实例addheaderView()或者addFooterView后，再通过setAdapter来添加适配器，此时在ListView实例变量里保存的适配器变量与我们传入的适配器变量不是同一个了。具体可参考源码： 因此，当有headerView或footerView的时候，要通过getAdapter()获取到适配器，而不是直接使用调用setAdapter是传入的入参。 以上所述是小编给大家介绍的当ListView有Header时 onItemClick里的position不正确的原因的全部叙述，希望对大家有所帮助，如果大家想了解更多内容，敬请关注软件开发网！
PyQt学习随笔：ListView控件获取当前选择项的方法
通过currentIndex()可以获取listView控件的当前选择元素，如果选择了多个，则可以通过selectedIndexes（）来获取选择的元素，不过这两个函数返回的是元素数据，而不是索引编号，如果要取到索引顺序号，需要通过row（）函数。 案例（m_ListView为listView控件名，displaySelected为一个TextBrowser控件名，itemmodel为列表项的数据...
如何开发框架(Framework)：以ListView为例
Android从View衍生出一个子类：ListView，来协助App开发者，让其轻易地开发出UI画面上的ListBox来。然而，仅仅一个ListView子类，并无法实现一个漂亮的ListBox画面。于是，规划一个小框架来达成这个目标，对App...
Android: SQLite + ListView 实现 新闻 App
文章目录一、前言:二、项目流程图:三、项目效果图:1、首页:2、新闻信息页:3、信息详情页:四、代码展示:五、后记: 一、前言: 本项目主要是通过 SQLite 数据库和 ListView 组件实现的一个关于查看新闻信息的 app,关于相关的知识,如果有不了解的小伙伴可以先学习一下。 二、项目流程图: 三、项目效果图: 1、首页: 2、新闻信息页: 3、信息详情页: 四、代码展示: SQLiteDBHelper.java – 加载数据库信息 package com.example.newsqlite
日积月累：ScrollView嵌套ListView只显示一行
在开发的过程当中，由于手机屏幕的大小的限制，我们经常需要使用滑动的方式，来显示更多的内容。在最近的工作中，遇见一个需求，需要将ListView嵌套到ScrollView中显示。于是乎有了如下布局： 
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章