weixu_2008

outlook插件邮件群发系统 outlook添加按钮 outlook添加窗口

界面

thisoutlooksession

---------------
Option Explicit
'Private WithEvents olOutboxItems As Items
'----------------
'Private WithEvents Importbtn As Office.CommandBarButton
Private WithEvents SendMailbtn As Office.CommandBarButton
Public WithEvents myControl As Office.CommandBarButton
'----------------
Dim objNS As NameSpace
'----------------
Dim MailAddFile As String
'Added by Zheng
Public Flag As Boolean
Public WithEvents myItem As mailItem
Public WithEvents colInsp As Outlook.Inspectors
Public WithEvents colCustomersItems As Outlook.Items
Public WithEvents olInboxItems As Outlook.Items
Public tempFolder As Outlook.MAPIFolder
Dim emailReg As String
Private Sub Application_Quit()
'----------------
' Set olOutboxItems = Nothing
' Set objNS = Nothing
'----------------
End Sub
Private Sub Application_Startup()
'----------------
emailReg = "[A-Za-z0-9_]+[A-Za-z0-9_/-]*(/.[A-Za-z0-9_]+[A-Za-z0-9_/-]*)*@[A-Za-z0-9_]+[A-Za-z0-9_/-]*(/.[A-Za-z0-9_]+[A-Za-z0-9_/-]*)*/.[A-Za-z]{2,6}"
Set objNS = Application.GetNamespace("MAPI")
' Set olOutboxItems = objNS.GetDefaultFolder(olFolderOutbox).Items
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
'----------------
'MailAddFile = "c:/YiFanMu/MailSys/MailAddress.xls"
'Call CreateFile(MailAddFile)
Call CreateFile("C:/YiFanMu/MailSys/Templates/")
Dim oExplorer As Outlook.Explorer
Set oExplorer = Application.ActiveExplorer
'Set Importbtn = CreateCommandBarButton(oExplorer.CommandBars, "导入收件人地址 ")
Set SendMailbtn = CreateCommandBarButton(oExplorer.CommandBars, "邮件群发")
End Sub
'Private Sub Importbtn_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
' MsgBox "Click: " & Ctrl.Caption
'End Sub
Private Sub SendMailbtn_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
UserForm1.Show
End Sub
Public Function CreateCommandBarButton(oBars As Office.CommandBars, str As String) As Office.CommandBarButton
On Error Resume Next
Dim oMenu As Office.CommandBar
Dim oBtn As Office.CommandBarButton
Set oMenu = oBars(str)
If oMenu Is Nothing Then
Set oMenu = oBars.Add(str, msoBarTop, , True)
Set oBtn = oMenu.Controls.Add(msoControlButton, , str, , True)
oBtn.Caption = str
oBtn.Tag = str
oBtn.FaceId = 1130
Else
Set oBtn = oMenu.FindControl(, , str)
If oBtn Is Nothing Then
Set oBtn = oMenu.Controls.Add(msoControlButton, , str, , True)
oBtn.Caption = str
oBtn.Tag = str
End If
End If
oMenu.Visible = True
Set CreateCommandBarButton = oBtn
End Function
Public Sub CreateFile(sFilePath)
Dim oFSO As Object
Dim nPosition As Integer
nPosition = InStr(1, sFilePath, "/", 0)
Set oFSO = CreateObject("Scripting.FileSystemObject")
While (nPosition <> 0)
If (Not oFSO.FolderExists(Mid(sFilePath, 1, nPosition))) Then
oFSO.CreateFolder (Mid(sFilePath, 1, nPosition))
End If
nPosition = InStr(nPosition + 1, sFilePath, "/", 0)
Wend
' If (Not oFSO.FileExists(sFilePath)) Then
' oFSO.CreateTextFile (sFilePath)
' End If
Set oFSO = Nothing
End Sub
'Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
' Dim NewMailItem As Outlook.mailItem
' Dim count As Long
' count = Item.Recipients.count
' If count > 1 Then
' Cancel = False
' Set NewMailItem = Item
'NewMailItem.GetInspector.Close olDiscard
'Call createTempFolder
'MsgBox (tempFolder)
'Item.Move (tempFolder)
' End If
''On Error Resume Next
' If Item.Class = olMail Then
' If Item.Recipients.count <> 1 Then
' For i = 1 To Item.Recipients.count
' Set NewMailItem = Item.Copy
' For j = NewMailItem.Recipients.count To 1 Step -1
' NewMailItem.Recipients.Remove (j)
' Next
' NewMailItem.Recipients.Add (Item.Recipients.Item(i))
' NewMailItem.Send
' Next
'NewMailItem.se
' Item.Close olSave
' End If
' End If
'End Sub
'Private Sub createTempFolder()
' Dim mpfRoot As Outlook.MAPIFolder
' Dim mpf As Outlook.MAPIFolder
' Dim isTempExist As Boolean
' isTempExist = False
' Set mpf = Application.Session.GetDefaultFolder(olFolderInbox)
' Set mpfRoot = mpf.Parent
' Dim eachFolder As MAPIFolder
' Dim x As MAPIFolder
' For Each x In mpfRoot.Folders
' If x.Name = "temp" Then
' isTempExist = True
' Set tempFolder = x
' Exit For
' End If
' Next x
' If Not isTempExist Then
' Set tempFolder = mpfRoot.Folders.Add("temp")
' End If
'End Sub
'Private Sub removeTempFolder()
' Dim mpfRoot As Outlook.MAPIFolder
' Dim mpf As Outlook.MAPIFolder
' Dim isTempExist As Boolean
' isTempExist = False
' Set mpf = Application.Session.GetDefaultFolder(olFolderInbox)
' Set mpfRoot = mpf.Parent
' Dim eachFolder As MAPIFolder
' Dim x As MAPIFolder
' For Each x In mpfRoot.Folders
' If x.Name = "temp" Then
' x.Delete
' Exit For
' End If
' Next x
'End Sub
'Private Sub olOutboxItems_ItemAdd(ByVal Item As Object)
'Dim myReply As Outlook.mailItem
'Dim i, j As Integer
'On Error Resume Next
' If Item.Class = olMail And Not TypeName(Item) = "Nothing" Then
' If Item.Recipients.count > 1 Then
' For i = 1 To Item.Recipients.count
' Set myReply = Item.Copy
' If Not TypeName(myReply) = "Nothing" Then
' For j = myReply.Recipients.count To 1 Step -1
' myReply.Recipients.Remove (j)
' Next
' myReply.Recipients.Add (Item.Recipients.Item(i))
' myReply.Send
' End If
' Next
' Set myReply = Nothing
' Item.Delete
' End If
' Set Item = Nothing
' End If
'End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
' Dim subj As String
' Dim senderName As String
' Dim senderAddr As String
' Dim body As String
' Dim regExp As regExp
' Dim matches As Object
' Dim failedAddr As String
' If typeName(Item) = "MailItem" Then
' subj = Item.subject
' senderName = Item.senderName
' senderAddr = Item.SenderEmailAddress
' If senderName = "Mail Delivery System" And (senderAddr = "[email protected]" Or senderAddr = "[email protected]") Then
' body = Item.body
' Set regExp = New regExp
' regExp.Pattern = emailReg
' Set matches = regExp.Execute(body)
' If matches.count >= 0 Then
' failedAddr = matches(0).Value
' If senderAddr = "[email protected]" Then
' Call logEmailNotFound(failedAddr)
' End If
' If senderAddr = "[email protected]" Then
' Call logEmailNotSent(failedAddr)
' End If
' Item.Close olDiscard
' Item.Delete
' End If
' End If
' End If
End Sub
Private Sub log(file As String, msg As String)
Dim now
now = "[" & Date & " " & Time & "] "
Open file For Append As #1
Print #1, now & msg
Close #1
End Sub
Private Sub logInvalidEmail(email As String)
Call log("c:/YiFanMu/MailSys/bademail.log", "邮件地址错误: " & email)
End Sub
Private Sub logEmailNotFound(email As String)
Call log("c:/YiFanMu/MailSys/notfound.log", "邮件地址未找到: " & email)
End Sub
Private Sub logEmailNotSent(email As String)
Call log("c:/YiFanMu/MailSys/failed.log", "邮件发送失败: " & email)
End Sub
Public Sub clearBadMail()
Dim objMAPIFolder As MAPIFolder
Dim totalNumber As Long
Dim i As Integer
Dim objMailItem As mailItem
Set objMAPIFolder = Application.Session.GetDefaultFolder(FolderType:=olFolderDeletedItems)
totalNumber = objMAPIFolder.Items.count
If totalNumber >= 1 Then
For i = totalNumber To 1 Step -1 ' 清除已删除邮件中邮件!
' DoEvents
Set objMailItem = objMAPIFolder.Items(i)
If Left(objMailItem.subject, 8) = "BADADDR_" Then
objMailItem.Close olDiscard
objMailItem.Delete
End If
Next i
End If
End Sub
Private Sub myControl_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Dim NewMailItem As Outlook.mailItem, Item As Outlook.mailItem, tmpMailItem As Outlook.mailItem
Dim i, j, k As Integer
Dim count As Long
Dim tempAddr As String
Dim reg As regExp
Set reg = New regExp
reg.Pattern = "^" & emailReg & "$"
i = 0
j = 0
k = 0
Dim arr() As String
Dim rec As Recipient
Dim validAddrs() As String
Dim temp As String
Dim addrLen As Long
If Application.ActiveInspector.CurrentItem.Class = olMail Then
Set Item = Application.ActiveInspector.CurrentItem.Copy
Application.ActiveInspector.CurrentItem.Close olDiscard
If Item.Recipients.count <> 1 Then
addrLen = -1
count = Item.Recipients.count
For i = count To 1 Step -1
temp = Item.Recipients.Item(i)
' arr = Split(temp, "<")
' If UBound(arr) > 0 Then
' tempAddr = Left(arr(1), Len(arr(1)) - 1)
' Else
tempAddr = temp
' End If
' MsgBox (tempAddr)
If reg.test(tempAddr) Then
addrLen = addrLen + 1
Else
Call logInvalidEmail(tempAddr)
Item.Recipients.Remove (i)
End If
Next i
If addrLen >= 0 Then
ReDim validAddrs(addrLen)
count = Item.Recipients.count
For i = 1 To Item.Recipients.count
temp = Item.Recipients.Item(i)
arr = Split(temp, "<")
If UBound(arr) > 0 Then
tempAddr = Left(arr(1), Len(arr(1)) - 1)
Else
tempAddr = temp
End If
validAddrs(i - 1) = tempAddr
Next i
For j = Item.Recipients.count To 1 Step -1
Item.Recipients.Remove (j)
Next j
If addrLen > 0 Then
' tmpMailItem = Item.Copy
' For j = tmpMailItem.Recipients.count To 1 Step -1
' tmpMailItem.Recipients.Remove (j)
' Next j
For i = LBound(validAddrs) To UBound(validAddrs)
tempAddr = validAddrs(i)
If i < UBound(validAddrs) Then
Set NewMailItem = Item.Copy
Else
Set NewMailItem = Item
End If
NewMailItem.Recipients.Add (tempAddr)
NewMailItem.Send
Next i
Else
Item.Close olDiscard
Item.Delete
End If
Set NewMailItem = Nothing
Else
Item.Close olDiscard
Item.Delete
End If
Set Item = Nothing
End If
End If
End Sub

userform1

 
  
Dim templatePath As String
Private Sub DeselectAllbtn_Click()
    Dim count As Long
    count = MailAdrtrv.Nodes.count
    For i = 1 To count
        MailAdrtrv.Nodes.Item(i).Checked = False
    Next
End Sub
Private Sub SelectAllbtn_Click()
    Dim count As Long
    count = MailAdrtrv.Nodes.count
    For i = 1 To count
        MailAdrtrv.Nodes.Item(i).Checked = True
    Next
End Sub
Private Sub UserForm_Initialize()
    Dim strnode As String
    Dim tvnode As node
    Dim i, j As Long
    Dim FSO As Object
    Dim TemplateOptionbtn ' As OptionButton 
    Dim TemplateOptionbtnCount As Integer
    
    With Me.Frame2
        'This will create a vertical scrollbar 
        .ScrollBars = fmScrollBarsVertical
        'Change the values of 2 as Permission your requirements 
        .ScrollHeight = .InsideHeight * 2
        .ScrollWidth = .InsideWidth * 9
    End With
   
    templatePath = "C:/YiFanMu/MailSys/Templates"
    MailAddFile = "c:/YiFanMu/MailSys/MailAddress.xls"
    
    MailAdrtrv.Nodes.Clear
    i = 0
    j = 0
    ' RETRIEVE DATA FROM FILE 
    ' Open file for input. 
'    Open MailAddFile For Input As #1 
    ' Loop until the end of file is reached. 
'    Do While Not EOF(1) 
    ' Read data into variables. 
'    i = i + 1 
'    Input #1, strnode 
'    If InStr(1, strnode, "@") = 0 Then 
'        j = i 
'        Set tvnode = MailAdrtrv.Nodes.Add(, , , strnode) 
'    Else 
'        Set tvnode = MailAdrtrv.Nodes.Add(j, tvwChild, , strnode) 
'    End If 
'    Loop 
'    ' Close file. 
'    Close #1 
    
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim xlWs As Excel.Worksheet
    Dim Rng As Excel.Range
    Dim typeName As String
    Dim clientName As String
    Dim email As String
'    Dim newEmail As String 
    Dim rowCount As Long
    Dim currentTypeId As Long
    Dim parentId As Long
    currentTypeId = 0
    parentId = 0
    
    Dim arra() As String
    Dim eachAddr As String
    
    Set xlApp = ThisOutlookSession.CreateObject("Excel.Application")
    Set xlWb = xlApp.Workbooks.Open(CStr(MailAddFile))
    
    For Each xlWs In xlWb.Worksheets
        typeName = xlWs.name
        'add the parent node here 
        Set tvnode = MailAdrtrv.Nodes.Add(, , , typeName)
        currentTypeId = currentTypeId + 1
        parentId = currentTypeId
        Set Rng = xlWs.Range("A1")
        rowCount = Rng.Cells(xlWs.Rows.count, 1).End(xlUp).Row
        For i = 2 To rowCount Step 1
            clientName = xlWs.Cells(i, 3).Value
            email = xlWs.Cells(i, 5).Value
            
            arra = Split(email, "/")
            For j = LBound(arra) To UBound(arra)
                
'            newEmail = xlWs.Cells(i, 6).Value 
'            If newEmail <> "" Then 
'                email = newEmail 
'            End If 
                If arra(j) <> "" Then
    '                MsgBox (typeName & ": " & clientName & "(" & email & ")") 
                    'add child node here 
                    Set tvnode = MailAdrtrv.Nodes.Add(parentId, tvwChild, , clientName & "<" & arra(j) & ">")
                    currentTypeId = currentTypeId + 1
                End If
            Next
        Next i
    Next xlWs
    
    xlWb.Close (False)
    Set Rng = Nothing
    Set xlWs = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    TemplateOptionbtnCount = 0
    Dim fFile As Object
    Dim fPatten As String
    Dim w1 As String
    fPatten = "oft"
    w1 = ""
    For Each fFile In FSO.GetFolder(templatePath).Files
        If UCase$(fPatten) = UCase$(FSO.GetExtensionName(fFile.Path)) Then
            'MsgBox (fFile.Name) 
            TemplateOptionbtnCount = TemplateOptionbtnCount + 1
            
             Set TemplateOptionbtn = Me.Frame2.Controls.Add("Forms.OptionButton.1", , True)
             With TemplateOptionbtn
                .Caption = Mid(fFile.name, 1, InStr(1, fFile.name, ".oft") - 1)
                .Top = 8 + (TemplateOptionbtnCount - 1) * 15
                .Left = 8
                .Height = 15
             End With
        End If
    Next
    Set FSO = Nothing
End Sub
Private Sub WriteMailbtn_Click()
    Dim selectItem 'As OptionButton 
    Dim NewMailItem As Outlook.mailItem
    Dim tempSelected As Boolean
    tempSelected = False
     
    UserForm1.Hide
    For Each x In Me.Frame2.Controls
        If x.Value = True Then
            Set selectItem = x
            tempSelected = True
            Exit For
        End If
    Next
    
    If tempSelected Then 'modified by zheng 
        Set NewMailItem = Application.CreateItemFromTemplate(templatePath & "/" & selectItem.Caption & ".oft")
        Call SetReceiveMailAdd(NewMailItem, MailAdrtrv)
    Else
        Set NewMailItem = Application.CreateItem(olMailItem)
        Call SetReceiveMailAdd(NewMailItem, MailAdrtrv)
    End If
    NewMailItem.Display
    Dim oExplorer As Outlook.Inspector
    Set oExplorer = NewMailItem.GetInspector
    Set ThisOutlookSession.myControl = ThisOutlookSession.CreateCommandBarButton(oExplorer.CommandBars, "邮件群发发送 ")
End Sub
Private Sub SetReceiveMailAdd(mailItem, tvHandle)
    'Added by Zheng 
    Dim email As String
    Dim count As Long
    Dim tempAddr As String
    Dim arr() As String
    
    For i = mailItem.Recipients.count To 1 Step -1 'modified by zheng 
        mailItem.Recipients.Remove (i)
    Next
    
    count = MailAdrtrv.Nodes.count
    For i = 1 To count
        If MailAdrtrv.Nodes.Item(i).Checked Then
            email = MailAdrtrv.Nodes.Item(i)
            If InStr(1, email, "<") <> 0 Then
                arr = Split(email, "<")
                If UBound(arr) > 0 Then
                    tempAddr = Left(arr(1), Len(arr(1)) - 1)
                Else
                    tempAddr = email
                End If
                mailItem.Recipients.Add (tempAddr)
            End If
        End If
       
    Next
  
End Sub
'Added by Zheng 
Private Sub MailAdrtrv_NodeCheck(ByVal node As MSComctlLib.node)
  Dim id As Long
  Dim isChecked As Boolean
  id = node.Index
  isChecked = node.Checked
  Dim i As Long
  Dim count As Long
  Dim email As String
  count = MailAdrtrv.Nodes.count
  If InStr(1, node, "<") = 0 Then
     For i = id + 1 To count
        email = MailAdrtrv.Nodes.Item(i)
        If InStr(1, email, "<") = 0 Then
            Exit For
        Else
            MailAdrtrv.Nodes.Item(i).Checked = isChecked
        End If
     Next
  End If
  
End Sub
Sub EnumCommandBars()
    Dim objOL As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Dim objDrafts As Outlook.MAPIFolder
    Dim objPost As Outlook.PostItem
    Dim colCB As Office.CommandBars
    Dim objCB As Office.CommandBar
    Dim strWindow As String
    Dim strExplBars As String
    Dim strInspBars As String
    Dim strText As String
    Dim arrBars() As String
    Dim i As Integer
    On Error Resume Next
    Set objOL = Application
    Set objNS = objOL.Session
    Set objDrafts = objNS.GetDefaultFolder(olFolderDrafts)
    strExplBars = "Menu Bar,Standard,Advanced,Web"
    strInspBars = "Menu Bar,Standard,Form Design,Formatting"
    strWindow = typeName(objOL.ActiveWindow)
    Select Case strWindow
        Case "Explorer"
            Set colCB = objOL.ActiveExplorer.CommandBars
            arrBars = Split(strExplBars, ",")
        Case "Inspector"
            Set colCB = objOL.ActiveInspector.CommandBars
            arrBars = Split(strInspBars, ",")
    End Select
    If Not colCB Is Nothing Then
        Set objPost = objDrafts.Items.Add("IPM.Post")
        objPost.subject = "CommandBars for " & strWindow & _
                          ": " & colCB.Parent.Caption
        objPost.BodyFormat = olFormatPlain
        For i = 0 To UBound(arrBars)
            Set objCB = colCB.Item(arrBars(i))
            Call EnumOneBar(objCB, strText)
            strText = strText & vbCrLf & "===========" & vbCrLf
        Next
        objPost.body = Mid(strText, 5)
        objPost.Save
        objPost.Display
    End If
    Set objOL = Nothing
    Set objNS = Nothing
    Set objDrafts = Nothing
    Set objPost = Nothing
    Set colCB = Nothing
    Set objCB = Nothing
End Sub
Sub EnumOneBar(cb As Office.CommandBar, ByRef postText)
    Dim objControl As Office.CommandBarControl
    Dim objPopupControl As Office.CommandBarPopup
    postText = postText & vbCrLf & vbCrLf & "CommandBar: " & cb.name
    For Each objControl In cb.Controls
        If objControl.BuiltIn = True Then
            Select Case objControl.Type
                Case msoControlPopup, _
                     msoControlButtonPopup, _
                     msoControlGraphicPopup, _
                     msoControlSplitButtonPopup
                    postText = postText & vbCrLf & vbCrLf & _
                      objControl.Caption & _
                      " (Submenu) - " & objControl.id
                    Set objPopupControl = objControl
                    If objControl.id = 5577 Then
                        MsgBox "ss"
                    End If
                    Call EnumOneBar( _
                      objPopupControl.CommandBar, postText)
                 Case Else
                    postText = postText & vbCrLf & vbTab & _
                      objControl.Caption & " - " & objControl.id
                    If objControl.id = 5577 Then
                        MsgBox "ss"
                    End If
            End Select
        End If
    Next
    Set objControl = Nothing
    Set objPopupControl = Nothing
End Sub
Sub FindSendBtn(cb As Office.CommandBar)
    Dim objControl As Office.CommandBarControl
    Dim objPopupControl As Office.CommandBarPopup
    For Each objControl In cb.Controls
        If objControl.BuiltIn = True Then
            Select Case objControl.Type
                Case msoControlPopup, _
                     msoControlButtonPopup, _
                     msoControlGraphicPopup, _
                     msoControlSplitButtonPopup
                    Set objPopupControl = objControl
                    If objControl.id = 5577 Then
                        objControl.Visible = False
                    End If
                    Call FindSendBtn(objPopupControl.CommandBar)
                 Case Else
                    If objControl.id = 5577 Then
                        objControl.Visible = False
                    End If
            End Select
        End If
    Next
    Set objControl = Nothing
    Set objPopupControl = Nothing
End Sub
 
 

全部代码也可以从http://download.csdn.net/source/643389下载

机器学习与深度学习间关系与区别 ℒℴѵℯ心·动ꦿ໊ོ꫞ 人工智能学习深度学习 python
一、机器学习概述定义机器学习（MachineLearning,ML）是一种通过数据驱动的方法，利用统计学和计算算法来训练模型，使计算机能够从数据中学习并自动进行预测或决策。机器学习通过分析大量数据样本，识别其中的模式和规律，从而对新的数据进行判断。其核心在于通过训练过程，让模型不断优化和提升其预测准确性。主要类型1.监督学习（SupervisedLearning）监督学习是指在训练数据集中包含输入
android系统selinux中添加新属性property 辉色投像
1.定位/android/system/sepolicy/private/property_contexts声明属性开头：persist.charge声明属性类型：u:object_r:system_prop:s0图12.定位到android/system/sepolicy/public/domain.te删除neverallow{domain-init}default_prop:property
【iOS】MVC设计模式 Magnetic_h ios mvc 设计模式 objective-c 学习 ui
MVC前言如何设计一个程序的结构，这是一门专门的学问，叫做"架构模式"（architecturalpattern），属于编程的方法论。MVC模式就是架构模式的一种。它是Apple官方推荐的App开发架构，也是一般开发者最先遇到、最经典的架构。MVC各层controller层Controller/ViewController/VC（控制器）负责协调Model和View，处理大部分逻辑它将数据从Mod
OC语言多界面传值五大方式 Magnetic_h ios ui 学习 objective-c 开发语言
前言在完成暑假仿写项目时，遇到了许多需要用到多界面传值的地方，这篇博客来总结一下比较常用的五种多界面传值的方式。属性传值属性传值一般用前一个界面向后一个界面传值，简单地说就是通过访问后一个视图控制器的属性来为它赋值，通过这个属性来做到从前一个界面向后一个界面传值。首先在后一个界面中定义属性@interfaceBViewController:UIViewController@propertyNSSt
UI学习——cell的复用和自定义cell Magnetic_h ui 学习
目录cell的复用手动（非注册）自动（注册）自定义cellcell的复用在iOS开发中，单元格复用是一种提高表格（UITableView）和集合视图（UICollectionView）滚动性能的技术。当一个UITableViewCell或UICollectionViewCell首次需要显示时，如果没有可复用的单元格，则视图会创建一个新的单元格。一旦这个单元格滚动出屏幕，它就不会被销毁。相反，它被添
element实现动态路由+面包屑软件技术NINI vue案例 vue.js 前端
el-breadcrumb是ElementUI组件库中的一个面包屑导航组件，它用于显示当前页面的路径，帮助用户快速理解和导航到应用的各个部分。在Vue.js项目中，如果你已经安装了ElementUI，就可以很方便地使用el-breadcrumb组件。以下是一个基本的使用示例：安装ElementUI（如果你还没有安装的话）:你可以通过npm或yarn来安装ElementUI。bash复制代码npmi
C语言宏函数南林yan C语言 c语言
一、什么是宏函数？通过宏定义的函数是宏函数。如下，编译器在预处理阶段会将Add(x,y)替换为((x)*(y))#defineAdd(x,y)((x)*(y))#defineAdd(x,y)((x)*(y))intmain(){inta=10;intb=20;intd=10;intc=Add(a+d,b)*2;cout<
C语言如何定义宏函数？小九格物 c语言
在C语言中，宏函数是通过预处理器定义的，它在编译之前替换代码中的宏调用。宏函数可以模拟函数的行为，但它们不是真正的函数，因为它们在编译时不会进行类型检查，也不会分配存储空间。宏函数的定义通常使用#define指令，后面跟着宏的名称和参数列表，以及宏展开后的代码。宏函数的定义方式：1.基本宏函数：这是最简单的宏函数形式，它直接定义一个表达式。#defineSQUARE(x)((x)*(x))2.带参
理解Gunicorn：Python WSGI服务器的基石范范0825 ipython linux 运维
理解Gunicorn：PythonWSGI服务器的基石介绍Gunicorn，全称GreenUnicorn，是一个为PythonWSGI（WebServerGatewayInterface）应用设计的高效、轻量级HTTP服务器。作为PythonWeb应用部署的常用工具，Gunicorn以其高性能和易用性著称。本文将介绍Gunicorn的基本概念、安装和配置，帮助初学者快速上手。1.什么是Gunico
Cell Insight | 单细胞测序技术又一新发现，可用于HIV-1和Mtb共感染个体诊断尐尐呅
结核病是艾滋病合并其他疾病中导致患者死亡的主要原因。其中结核病由结核分枝杆菌（Mycobacteriumtuberculosis,Mtb）感染引起，获得性免疫缺陷综合症（艾滋病）由人免疫缺陷病毒（Humanimmunodeficiencyvirustype1,HIV-1）感染引起。国家感染性疾病临床医学研究中心/深圳市第三人民医院张国良团队携手深圳华大生命科学研究院吴靓团队，共同研究得出单细胞测序
c++ 的iostream 和 c++的stdio的区别和联系黄卷青灯77 c++算法开发语言 iostream stdio
在C++中，iostream和C语言的stdio.h都是用于处理输入输出的库，但它们在设计、用法和功能上有许多不同。以下是两者的区别和联系：区别1.编程风格iostream（C++风格）：C++标准库中的输入输出流类库，支持面向对象的输入输出操作。典型用法是cin（输入）和cout（输出），使用>操作符来处理数据。更加类型安全，支持用户自定义类型的输入输出。#includeintmain(){in
Long类型前后端数据不一致 igotyback 前端
响应给前端的数据浏览器控制台中response中看到的Long类型的数据是正常的到前端数据不一致前后端数据类型不匹配是一个常见问题，尤其是当后端使用Java的Long类型（64位）与前端JavaScript的Number类型（最大安全整数为2^53-1，即16位）进行数据交互时，很容易出现精度丢失的问题。这是因为JavaScript中的Number类型无法安全地表示超过16位的整数。为了解决这个问
LocalDateTime 转 String igotyback java 开发语言
importjava.time.LocalDateTime;importjava.time.format.DateTimeFormatter;publicclassMain{publicstaticvoidmain(String[]args){//获取当前时间LocalDateTimenow=LocalDateTime.now();//定义日期格式化器DateTimeFormatterformat
swagger访问路径 igotyback swagger
Swagger2.x版本访问地址：http://{ip}:{port}/{context-path}/swagger-ui.html{ip}是你的服务器IP地址。{port}是你的应用服务端口，通常为8080。{context-path}是你的应用上下文路径，如果应用部署在根路径下，则为空。Swagger3.x版本对于Swagger3.x版本（也称为OpenAPI3）访问地址：http://{ip
mysql禁用远程登录 igotyback mysql
去mysql库中的user表里，将host都改成localhost之后刷新权限FLUSHPRIVILEGES;
如何在 Fork 的 GitHub 项目中保留自己的修改并同步上游更新？github_fork_update iBaoxing github
如何在Fork的GitHub项目中保留自己的修改并同步上游更新？在GitHub上Fork了一个项目后，你可能会对项目进行一些修改，同时原作者也在不断更新。如果想要在保留自己修改的基础上，同步原作者的最新更新，很多人会不知所措。本文将详细讲解如何在不丢失自己改动的情况下，将上游仓库的更新合并到自己的仓库中。问题描述假设你在GitHub上Fork了一个项目，并基于该项目做了一些修改，随后你发现原作者对
Linux下QT开发的动态库界面弹出操作（SDL2） 13jjyao QT类 qt 开发语言 sdl2 linux
需求：操作系统为linux，开发框架为qt，做成需带界面的qt动态库，调用方为java等非qt程序难点：调用方为java等非qt程序，也就是说调用方肯定不带QApplication::exec()，缺少了这个，QTimer等事件和QT创建的窗口将不能弹出(包括opencv也是不能弹出)；这与qt调用本身qt库是有本质的区别的思路：1.调用方缺QApplication::exec()，那么我们在接口
店群合一模式下的社区团购新发展——结合链动 2+1 模式、AI 智能名片与 S2B2C 商城小程序源码说私域人工智能小程序
摘要：本文探讨了店群合一的社区团购平台在当今商业环境中的重要性和优势。通过分析店群合一模式如何将互联网社群与线下终端紧密结合，阐述了链动2+1模式、AI智能名片和S2B2C商城小程序源码在这一模式中的应用价值。这些创新元素的结合为社区团购带来了新的机遇，提升了用户信任感、拓展了营销渠道，并实现了线上线下的完美融合。一、引言随着互联网技术的不断发展，社区团购作为一种新兴的商业模式，在满足消费者日常需
html 中如何使用 uniapp 的部分方法某公司摸鱼前端 html uni-app 前端
示例代码：Documentconsole.log(window);效果展示：好了，现在就可以uni.使用相关的方法了
ArcGIS栅格计算器常见公式（赋值、0和空值的转换、补充栅格空值）研学随笔 arcgis 经验分享
我们在使用ArcGIS时通常经常用到栅格计算器，今天主要给大家介绍我日常中经常用到的几个公式，供大家参考学习。将特定值（-9999）赋值为0，例如-9999.Con("raster"==-9999,0,"raster")2.给空值赋予特定的值（如0）Con(IsNull("raster"),0,"raster")3.将特定的栅格值(如1)赋值为空值，其他保留原值SetNull("raster"==
高级编程--XML+socket练习题 masa010 java 开发语言
1.北京华北2114.8万人上海华东2,500万人广州华南1292.68万人成都华西1417万人（1）使用dom4j将信息存入xml中（2）读取信息，并打印控制台（3）添加一个city节点与子节点（4）使用socketTCP协议编写服务端与客户端，客户端输入城市ID，服务器响应相应城市信息（5）使用socketTCP协议编写服务端与客户端，客户端要求用户输入city对象，服务端接收并使用dom4j
水平垂直居中的几种方法（总结） LJ小番茄 CSS_玄学语言 html javascript 前端 css css3
1.使用flexbox的justify-content和align-items.parent{display:flex;justify-content:center;/*水平居中*/align-items:center;/*垂直居中*/height:100vh;/*需要指定高度*/}2.使用grid的place-items:center.parent{display:grid;place-item
回溯 Leetcode 332 重新安排行程 mmaerd Leetcode刷题学习记录 leetcode 算法职场和发展
重新安排行程Leetcode332学习记录自代码随想录给你一份航线列表tickets，其中tickets[i]=[fromi,toi]表示飞机出发和降落的机场地点。请你对该行程进行重新规划排序。所有这些机票都属于一个从JFK（肯尼迪国际机场）出发的先生，所以该行程必须从JFK开始。如果存在多种有效的行程，请你按字典排序返回最小的行程组合。例如，行程[“JFK”,“LGA”]与[“JFK”,“LGB
每日一题——第八十九题互联网打工人no1 C语言程序设计每日一练 c语言
题目：在字符串中找到提取数字，并统计一共找到多少整数，a123xxyu23&8889，那么找到的整数为123，23，8889//思想：#include#include#includeintmain(){charstr[]="a123xxyu23&8889";intcount=0;intnum=0;//用于临时存放当前正在构建的整数。boolinNum=false;//用于标记当前是否正在读取一个整
每日一题——第九十题互联网打工人no1 C语言程序设计每日一练 c语言
题目：判断子串是否与主串匹配#include#include#include//////判断子串是否在主串中匹配//////主串///子串///boolisSubstring(constchar*str,constchar*substr){intlenstr=strlen(str);//计算主串的长度intlenSub=strlen(substr);//计算子串的长度//遍历主字符串，对每个可能得
每日一题——第八十一题互联网打工人no1 C语言程序设计每日一练 c语言
打印如下图案:#includeintmain(){inti,j;charch='A';for(i=1;i<5;i++,ch++){for(j=0;j<5-i;j++){printf("");//控制空格输出}for(j=1;j<2*i;j++)//条件j<2*i{printf("%c",ch);//控制字符输出}printf("\n");}return0;}
每日一题——第八十四题互联网打工人no1 C语言程序设计每日一练 c语言
题目：编写函数1、输入10个职工的姓名和职工号2、按照职工由大到小顺序排列，姓名顺序也随之调整3、要求输入一个职工号，用折半查找法找出该职工的姓名#define_CRT_SECURE_NO_WARNINGS#include#include#defineMAX_EMPLOYEES10typedefstruct{intid;charname[50];}Empolyee;voidinputEmploye
每日一题——第八十二题互联网打工人no1 C语言程序设计每日一练 c语言
题目：将一个控制台输入的字符串中的所有元音字母复制到另一字符串中#include#include#include#include#defineMAX_INPUT1024boolisVowel(charp);intmain(){charinput[MAX_INPUT];charoutput[MAX_INPUT];printf("请输入一串字符串：\n");fgets(input,sizeof(inp
每日一题——第八十三题互联网打工人no1 C语言程序设计每日一练 c语言
题目：将输入的整形数字输出,输出1990，输出"1990"#include#defineMAX_INPUT1024intmain(){intarrr_num[MAX_INPUT];intnum,i=0;printf("请输入一个数字：");scanf_s("%d",&num);while(num!=0){arrr_num[i++]=num%10;num/=10;}printf("\"");for(
C#中使用split分割字符串互联网打工人no1 c#
1、用字符串分隔：usingSystem.Text.RegularExpressions;stringstr="aaajsbbbjsccc";string[]sArray=Regex.Split(str,"js",RegexOptions.IgnoreCase);foreach(stringiinsArray)Response.Write(i.ToString()+"");输出结果：aaabbbc
Nginx负载均衡 510888780 nginx 应用服务器
Nginx负载均衡一些基础知识: nginx 的 upstream目前支持 4 种方式的分配 1)、轮询（默认）每个请求按时间顺序逐一分配到不同的后端服务器，如果后端服务器down掉，能自动剔除。 2)、weight 指定轮询几率，weight和访问比率成正比
RedHat 6.4 安装 rabbitmq bylijinnan erlang rabbitmq redhat
在 linux 下安装软件就是折腾，首先是测试机不能上外网要找运维开通，开通后发现测试机的 yum 不能使用于是又要配置 yum 源，最后安装 rabbitmq 时也尝试了两种方法最后才安装成功机器版本： [root@redhat1 rabbitmq]# lsb_release LSB Version: :base-4.0-amd64:base-4.0-noarch:core
FilenameUtils工具类 eksliang FilenameUtils common-io
转载请出自出处：http://eksliang.iteye.com/blog/2217081 一、概述这是一个Java操作文件的常用库，是Apache对java的IO包的封装，这里面有两个非常核心的类FilenameUtils跟FileUtils，其中FilenameUtils是对文件名操作的封装;FileUtils是文件封装，开发中对文件的操作，几乎都可以在这个框架里面找到。非常的好用。
xml文件解析SAX 不懂事的小屁孩 xml
xml文件解析:xml文件解析有四种方式， 1.DOM生成和解析XML文档(SAX是基于事件流的解析) 2.SAX生成和解析XML文档(基于XML文档树结构的解析) 3.DOM4J生成和解析XML文档 4.JDOM生成和解析XML 本文章用第一种方法进行解析，使用android常用的DefaultHandler import org.xml.sax.Attributes;
通过定时任务执行mysql的定期删除和新建分区，此处是按日分区酷的飞上天空 mysql
使用python脚本作为命令脚本，linux的定时任务来每天定时执行 #!/usr/bin/python # -*- coding: utf8 -*- import pymysql import datetime import calendar #要分区的表 table_name = 'my_table' #连接数据库的信息 host,user,passwd,db =
如何搭建数据湖架构？听听专家的意见蓝儿唯美架构
Edo Interactive在几年前遇到一个大问题：公司使用交易数据来帮助零售商和餐馆进行个性化促销，但其数据仓库没有足够时间去处理所有的信用卡和借记卡交易数据 “我们要花费27小时来处理每日的数据量，”Edo主管基础设施和信息系统的高级副总裁Tim Garnto说道：“所以在2013年，我们放弃了现有的基于PostgreSQL的关系型数据库系统，使用了Hadoop集群作为公司的数
spring学习——控制反转与依赖注入 a-john spring
控制反转（Inversion of Control，英文缩写为IoC）是一个重要的面向对象编程的法则来削减计算机程序的耦合问题，也是轻量级的Spring框架的核心。控制反转一般分为两种类型，依赖注入（Dependency Injection，简称DI）和依赖查找（Dependency Lookup）。依赖注入应用比较广泛。
用spool+unixshell生成文本文件的方法 aijuans xshell
例如我们把scott.dept表生成文本文件的语句写成dept.sql,内容如下: 　　set pages 50000; 　　set lines 200; 　　set trims on; 　　set heading off; 　　spool /oracle_backup/log/test/dept.lst; 　　select deptno||','||dname||','||loc
1、基础--名词解析(OOA/OOD/OOP) asia007 学习基础知识
OOA:Object-Oriented Analysis（面向对象分析方法）是在一个系统的开发过程中进行了系统业务调查以后，按照面向对象的思想来分析问题。OOA与结构化分析有较大的区别。OOA所强调的是在系统调查资料的基础上，针对OO方法所需要的素材进行的归类分析和整理，而不是对管理业务现状和方法的分析。　　OOA（面向对象的分析）模型由5个层次（主题层、对象类层、结构层、属性层和服务层）
浅谈java转成json编码格式技术百合不是茶 json编码 java转成json编码
json编码;是一个轻量级的数据存储和传输的语言在java中需要引入json相关的包,引包方式在工程的lib下就可以了 JSON与JAVA数据的转换（JSON 即 JavaScript Object Natation，它是一种轻量级的数据交换格式，非常适合于服务器与 JavaScript 之间的数据的交
web.xml之Spring配置(基于Spring+Struts+Ibatis) bijian1013 java web.xml SSI spring配置
指定Spring配置文件位置 <context-param> <param-name>contextConfigLocation</param-name> <param-value> /WEB-INF/spring-dao-bean.xml,/WEB-INF/spring-resources.xml, /WEB-INF/
Installing SonarQube（Fail to download libraries from server） sunjing Install Sonar
1. Download and unzip the SonarQube distribution 2. Starting the Web Server The default port is "9000" and the context path is "/". These values can be changed in &l
【MongoDB学习笔记十一】Mongo副本集基本的增删查 bit1129 mongodb
一、创建复本集假设mongod,mongo已经配置在系统路径变量上，启动三个命令行窗口，分别执行如下命令： mongod --port 27017 --dbpath data1 --replSet rs0 mongod --port 27018 --dbpath data2 --replSet rs0 mongod --port 27019 -
Anychart图表系列二之执行Flash和HTML5渲染白糖_ Flash
今天介绍Anychart的Flash和HTML5渲染功能 HTML5 Anychart从6.0第一个版本起，已经逐渐开始支持各种图的HTML5渲染效果了，也就是说即使你没有安装Flash插件，只要浏览器支持HTML5，也能看到Anychart的图形（不过这些是需要做一些配置的）。这里要提醒下大家，Anychart6.0版本对HTML5的支持还不算很成熟，目前还处于
Laravel版本更新异常4.2.8-> 4.2.9 Declaration of ... CompilerEngine ... should be compa bozch laravel
昨天在为了把laravel升级到最新的版本，突然之间就出现了如下错误： ErrorException thrown with message "Declaration of Illuminate\View\Engines\CompilerEngine::handleViewException() should be compatible with Illuminate\View\Eng
编程之美-NIM游戏分析-石头总数为奇数时如何保证先动手者必胜 bylijinnan 编程之美
import java.util.Arrays; import java.util.Random; public class Nim { /**编程之美 NIM游戏分析问题：有N块石头和两个玩家A和B，玩家A先将石头随机分成若干堆，然后按照BABA...的顺序不断轮流取石头，能将剩下的石头一次取光的玩家获胜，每次取石头时，每个玩家只能从若干堆石头中任选一堆，
lunce创建索引及简单查询 chengxuyuancsdn 查询创建索引 lunce
import java.io.File; import java.io.IOException; import org.apache.lucene.analysis.Analyzer; import org.apache.lucene.analysis.standard.StandardAnalyzer; import org.apache.lucene.document.Docume
[IT与投资]坚持独立自主的研究核心技术 comsci it
和别人合作开发某项产品....如果互相之间的技术水平不同,那么这种合作很难进行,一般都会成为强者控制弱者的方法和手段..... 所以弱者,在遇到技术难题的时候,最好不要一开始就去寻求强者的帮助,因为在我们这颗星球上,生物都有一种控制其
flashback transaction闪回事务查询 daizj oracle sql 闪回事务
闪回事务查询有别于闪回查询的特点有以下3个：（1）其正常工作不但需要利用撤销数据，还需要事先启用最小补充日志。（2）返回的结果不是以前的“旧”数据，而是能够将当前数据修改为以前的样子的撤销SQL（Undo SQL）语句。（3）集中地在名为flashback_transaction_query表上查询，而不是在各个表上通过“as of”或“vers
Java I/O之FilenameFilter类列举出指定路径下某个扩展名的文件游其是你 FilenameFilter
这是一个FilenameFilter类用法的例子，实现的列举出“c:\\folder“路径下所有以“.jpg”扩展名的文件。 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
C语言学习五函数，函数的前置声明以及如何在软件开发中合理的设计函数来解决实际问题 dcj3sjt126com c
# include <stdio.h> int f(void) //括号中的void表示该函数不能接受数据，int表示返回的类型为int类型 { return 10; //向主调函数返回10 } void g(void) //函数名前面的void表示该函数没有返回值 { //return 10; //error 与第8行行首的void相矛盾 } in
今天在测试环境使用yum安装，遇到一个问题： Error: Cannot retrieve metalink for repository: epel. Pl dcj3sjt126com centos
今天在测试环境使用yum安装，遇到一个问题： Error: Cannot retrieve metalink for repository: epel. Please verify its path and try again 处理很简单，修改文件“/etc/yum.repos.d/epel.repo”，将baseurl的注释取消， mirrorlist注释掉。即可。 &n
单例模式 shuizhaosi888 单例模式
单例模式懒汉式 public class RunMain { /** * 私有构造 */ private RunMain() { } /** * 内部类，用于占位，只有 */ private static class SingletonRunMain { priv
Spring Security（09）——Filter 234390216 Spring Security
Filter 目录 1.1 Filter顺序 1.2 添加Filter到FilterChain 1.3 DelegatingFilterProxy 1.4 FilterChainProxy 1.5
公司项目NODEJS实践0.1 逐行分析JS源代码 mongodb nginx ubuntu nodejs
一、前言前端如何独立用nodeJs实现一个简单的注册、登录功能，是不是只用nodejs+sql就可以了？其实是可以实现，但离实际应用还有距离，那要怎么做才是实际可用的。网上有很多nod
java.lang.Math liuhaibo_ljf java Math lang
System.out.println(Math.PI); System.out.println(Math.abs(1.2)); System.out.println(Math.abs(1.2)); System.out.println(Math.abs(1)); System.out.println(Math.abs(111111111)); System.out.println(Mat
linux下时间同步 nonobaba ntp
今天在linux下做hbase集群的时候，发现hmaster启动成功了，但是用hbase命令进入shell的时候报了一个错误 PleaseHoldException: Master is initializing，查看了日志，大致意思是说master和slave时间不同步，没办法，只好找一种手动同步一下，后来发现一共部署了10来台机器，手动同步偏差又比较大，所以还是从网上找现成的解决方
ZooKeeper3.4.6的集群部署 roadrunners zookeeper 集群部署
ZooKeeper是Apache的一个开源项目，在分布式服务中应用比较广泛。它主要用来解决分布式应用中经常遇到的一些数据管理问题，如：统一命名服务、状态同步、集群管理、配置文件管理、同步锁、队列等。这里主要讲集群中ZooKeeper的部署。 1、准备工作我们准备3台机器做ZooKeeper集群，分别在3台机器上创建ZooKeeper需要的目录。数据存储目录
Java高效读取大文件 tomcat_oracle java
　　读取文件行的标准方式是在内存中读取，Guava 和Apache Commons IO都提供了如下所示快速读取文件行的方法：　　Files.readLines(new File(path), Charsets.UTF_8); 　　FileUtils.readLines(new File(path)); 　　这种方法带来的问题是文件的所有行都被存放在内存中，当文件足够大时很快就会导致
微信支付api返回的xml转换为Map的方法 xu3508620 xml map 微信api
举例如下： <xml> <return_code><![CDATA[SUCCESS]]></return_code> <return_msg><![CDATA[OK]]></return_msg> <appid><

outlook插件 邮件群发系统 outlook添加按钮 outlook添加窗口

你可能感兴趣的:(c,Date,Web,email)

outlook插件邮件群发系统 outlook添加按钮 outlook添加窗口